Файл: Как определить лучший класс по успеваемости?

type
stud=record
fam:string[30];
kl:string[10];
srb:real;
end;
var
bd:stud;
t:text;
f:file of stud;
   BEGIN
          ASSIGN(t,'ishf.pas');
                  RESET(t);
                  ASSIGN(f,'rezf.pas');
          REWRITE( f);
          WHILE NOT EOF(t) DO
            BEGIN
               READLN(t,bd.fam);
               READLN(t,bd.kl);
               READLN(t,bd.srb);
               WRITE(f,bd)
            END;
            close(t);
            close(f);
        END.

uses crt;
type
stud=record
fam:string[30];
kl:string[10];
srb:real;
end;
  var
f:file of stud;
A:ARRAY [1..50] OF stud;
n,j,i,k:integer;
bd:stud;
BEGIN
     ASSIGN(f,'rezf.pas');
     RESET(F);
 n:=0;
      WHILE NOT EOF(F) DO
BEGIN
      n:=n+1;
             READ(F,A[n]);
         END;
         i:=n;
    FOR i:= N DOWNTO 2 DO
          FOR j:= 1 to i-1 DO
             IF A[j].kl>A[j+1].kl THEN
                        BEGIN
                           bd:=A[j];
                    A[j]:=A[j+1];
                    A[j+1]:=bd;
                        END;
                        writeln ('îòñîðòèðîâàíûé ìàñèâ');
                        for i:=1 to n do
                        writeln (a[i].fam,'   ','   ',a[i].kl,'  ',a[i].srb);
                        {îáðàáîòêà????}
 
     CLOSE(F);
END.

uses crt;
type
stud=record
fam:string[30];
kl:string[10];
srb:real;
end;
  var
f:file of stud;
A,b:ARRAY [1..50] OF stud;
CY: STRING;
n,j,i,k:integer;
bd:stud;
sr:real;
max:stud;
ng:string;
BEGIN
     ASSIGN(f,'rezf.pas');
     RESET(F);
 n:=0;
      WHILE NOT EOF(F) DO
BEGIN
      n:=n+1;
             READ(F,A[n]);
         END;
         i:=n;
    FOR i:= N DOWNTO 2 DO
          FOR j:= 1 to i-1 DO
             IF A[j].kl>A[j+1].kl THEN
                        BEGIN
                           bd:=A[j];
                    A[j]:=A[j+1];
                    A[j+1]:=bd;
                        END;
                        writeln ('îòñîðòèðîâàíûé ìàñèâ');
                        for i:=1 to n do
                        writeln (a[i].fam,'   ','   ',a[i].kl,'  ',a[i].srb);
 I:=1;
    WHILE I<=N DO
         BEGIN
            K:=0;
            sr:=0;
 CY:=A[I].kl;
             WHILE CY=A[I].kl DO
                  BEGIN
                   K:=K+1;
                  sr:=sr+a[i].srb;
                                     I:=I+1;
                  END;
                  b[i]:=sr/k;
                  for i:=1 to n do
                  if b[i]>b[i+1]; then
                  max:=b[i];
WRITELN('êëàññ',max);
         END;
     CLOSE(F);
END.