Структурированные типы данных – записи

uses crt;
const m=3;
type Klass=record
       Fam : string[25];
       Name : string[25];
       Alg : 1..5;
       Geo : 1..5;
       Fiz : 1..5;
       Inform : 1..5;
       Rus : 1..5;
     end;
var a : array[1..m] of Klass;
    i,q : byte;
    b : Klass;
    
procedure VVod(var a : array [1..m] of Klass);
  begin
  for i:=1 to m do begin
    with a[i] do begin
      writeln('Введите фамилию и имя ученика, через Enter');
      readln(Fam,Name);
      writeln('Введите оценки по Алгебре, Геометрии, Физике, Информатике и Русскому языку, Через Enter');
      readln(Alg,Geo,Fiz,Inform,Rus);
    end;
    clrscr;
  end;
end;
 
procedure VuvodDvo(b:klass);
  begin
    writeln;
    with b do begin
      if (Alg=2) or (Geo=2) or (Fiz=2) or (Inform=2) or (Rus=2) then begin
        writeln(Fam,' ',Name);
        if Alg=2 then writeln('Алгебра =',Alg);
        if Geo=2 then writeln('Геометрия =',Geo);
        if Fiz=2 then writeln('Физика =',Fiz);
        if Inform=2 then writeln('Информатика =',Inform);
        if Rus=2 then writeln('Русский язык =',Rus);
      end;
    end;
end;
  
procedure Obrabotka(a : array [1..m] of Klass);
  var flag,flag2:boolean;
  begin
    flag:=false; flag2:=true;
    writeln('Отличники класса: ');
 
      for i:=1 to m do begin
        with a[i] do begin
          if (Alg<>5) and (Geo<>2) and (Fiz<>5) and (Inform<>5) and (Rus<>5) then flag2:=false
          else flag:=true;
          if (Alg=5) and (Geo=5) and (Fiz=5) and (Inform=5) and (Rus=5) then begin
            flag2:=true;
            writeln(Fam,' ',Name);
          end;
          if (Alg=2) or (Geo=2) or (Fiz=2) or (Inform=2) or (Rus=2) then flag:=true;
        end;
      end;
    if flag2=false then writeln('Отличников в классе нет');
    writeln;
    writeln('Список двоечников класса');
 
    if flag=false then writeln('Двоечников в классе нету')
    else begin
      for q:=1 to m do begin
          VuvodDvo(a[q]);
      end;
    end;
end;
begin
  VVod(a);
  Obrabotka(a);
end.