Определить самого слабого и самого сильного ученика класса

program gg;
uses crt;
const dlina = 30; n=8;
type spisok = record
fio: string [dlina];
otsenka: integer;
end;
var
a: array [1..8] of spisok;
i,h,x,y:integer; 
s:real;
min, max: real;
begin clrscr;
x:=1; y:=1;
h:=3 {заголовок таблицы};
write ('fio');
x:=x+8;
gotoXY(x,y);
write('otsenka');
x:=x+8;
gotoXY(x,y);
s:=0;
for i:=1 to n do
begin x:=1; y:=y+h;
with a[i] do
begin
gotoXY(x,y);
readln(fio); x:=x+20;
gotoXY(x,y);
readln(otsenka); x:=x+20;
end;
end;
 
for i := 1 to N do
with a[i] do
begin 
s:=s+otsenka;
writeln('Средний балл', s/n);
 
end.

program gg;
uses
  crt;
const
  dlina = 30; n=8;
type
  spisok = record
    fio: string [dlina];
    otsenka: integer;
  end;
var
  a: array [1..8] of spisok;
  j,i,h,x,y:integer;
  s:real;
  min, max: real;
  b:spisok;
begin
  clrscr;
  x:=1; y:=1;
  h:=1 {заголовок таблицы};
  write ('ФИО');
  x:=x+8;
  gotoXY(x,y);
  write('Оценка':15);
  x:=x+8;
  gotoXY(x,y);
  s:=0;
  for i:=1 to n do
    begin
      x:=1;
      y:=y+h;
      with a[i] do
        begin
          gotoXY(x,y);
          readln(fio);
          x:=x+20;
          gotoXY(x,y);
          readln(otsenka);
          x:=x+20;
        end;
    end;
  for i := 1 to N do
    with a[i] do
      begin
        s:=s+otsenka;
      end;
  writeln('Средний балл', s/n:8:1);
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if a[i].otsenka<a[j].otsenka then
        begin
          b:=a[i];
          a[i]:=a[j];
          a[j]:=b;
        end;
  writeln('Список учеников:');
  for i:=1 to n do
    writeln(a[i].fio:15,a[i].otsenka:3);
  writeln('Самый сильный ученик: ',a[1].fio);
  writeln('Самый слабый  ученик: ',a[n].fio);
  readln;
end.