在pascal上怎么找出15个数中最大的数和最小的数,并且得到剩下13个数的平均数

绝对的第一时间
program pingfen;
var i,j,k,s:integer;
n:real;
a:array[1..15]of integer;
begin
for i:=1 to 15 do
begin
write('input the grade of student',i,':');
readln(a[i]);
if (a[i]<0)or(a[i]>15) then begin writeln('error');break;end;
end;
for k:=1 to 15 do
for i:=k to 15 do
begin
if a[i]>=a[k] then
begin
j:=a[i];
a[i]:=a[k];
a[k]:=j;
end;
end;
for k:=14 downto 1 do
for i:= k downto 1 do
if a[i]<=a[k] then
begin
j:=a[i];
a[i]:=a[k];
a[k]:=j;
end;
for i:=2 to 14 do begin
k:=a[i];
s:=s+k;end;
n:=s/13;
writeln('n:=',n);
readln
end.
暂且不说繁琐不繁琐，反正数很小，你整死电脑他都超不了时

program asd;
var a:array[1..15]of integer;