Вывести информацию о результатах сдачи экзаменов

Program lab14;
const maxn=10;
type
  Anketa = record
    FIO : string;
    Mat,Rus,Fil,Prog : byte;
  end;
var
  n,i,q,w : byte;
  a: array[1..maxn] of Anketa;
Begin
  write('Kol-wo ludej w gruppe [n<=',maxn,'] : '); readln(n);
  for i:=1 to n do with a[i] do begin
    writeln(i,' :');
    write('FIO : '); readln(fio); write('Mat : '); readln(Mat);
     write('Rus : '); readln(Rus);
      write('Fil : '); readln(Fil);
       write('Prog : '); readln(Prog);        writeln;
  end;
  writeln('----------'); writeln('Dolg:'); writeln('---------------');
  for i:=1 to n do writeln(a[i].fio);
  readln;
End.

writeln('----------'); writeln('Dolg:'); writeln('---------------');
  for i:=1 to n do
    if a[i].Rus <= 2 AND a[i].Mat <= 2 AND a[i].Fil <= 2 AND a[i].Prog <= 2 then
      writeln(a[i].fio);

if (a[i].Rus <3) or (a[i].Mat<3)or(a[i].Fil <3) or( a[i].Prog) <3) then
      writeln(a[i].fio);