Записи: Сформируйте массив из лучших учеников

program zap;
label 20, 30;
type sved=record
     imya: string[20];
     fam: string[20];
     klas: string[7];
     ocen: array[1..5] of integer;
     end;
var n,i,min,j,q: integer;
    f: text;
    ank: array[1..50] of sved;
begin
    assign(f, 'E:\users\101411\kdg2s.txt');
    rewrite(f);
    writeln('Vvedite kolichestvo ychenikov:');
    readln(n);
    for i:=1 to n do begin
     writeln('Vvedite imya:');
     readln(ank[i].imya);
     writeln('Vvedite familijy:');
     readln(ank[i].fam);
     writeln('Vvedite klass:');
     readln(ank[i].klas);
     write(f, 'Imya: ',ank[i].imya,' Familiya: ',ank[i].fam,' Klass: ',ank[i].klas,' Ocenki: ');
     writeln('Vvedite 5 ocenok');
     with ank[i] do begin
      for j:=1 to 5 do begin
       readln(ocen[j]);
       write(f, ocen[j],' ');
      end;
     end;
     writeln(f);
    end;
    writeln(f);
    writeln(f,'Lychshiye ycheniki:');
    for i:=1 to n do begin
     with ank[i] do begin
     q:=0;
      for j:=1 to 5 do begin
       if ocen[j]<4 then goto 20;
      end; goto 30;
      20: writeln;
      q:=1;
      30: writeln;
     end;
     if q=0 then begin
      write(f, 'Imya: ',ank[i].imya,' Familiya: ',ank[i].fam,' Klass: ',ank[i].klas,' Ocenki: ');
      with ank[i] do begin
       for j:=1 to 5 do begin
        write(f, ocen[j],' ');
       end;
      end;
     end else
     writeln(f);
    end;
    close(f);
end.