Записи. Определите список студентов, пересдавших задолженность

program Project1;
Type
  Stud = record
    Fam: String[20];
    Pred: String[20];
    Gr: String[3];
    Date: String[10];
    O: String[1];
  end;
var
   I, J, F, O: Integer;
   A: array [1..5] of Stud;
begin
  Writeln('Введите данные о студентах, не сдавших экзамен.');
  for I:= 1 to 2 do
    begin
      Write('Введите фимилию учащегося: ');
      Readln(A[I].Fam);
      Write('Введите группу учащегося: ');
      Readln(A[I].Gr);
      Write('Введите предмет экзамена: ');
      Readln(A[I].Pred);
      Write('Введите дату экзамена: ');
      Readln(A[I].Date);
   end;
 
  for I := 1 to 2 do
    begin
      Writeln('Введите фамилию студента, пересдавшего экзамен.');
      Readln(A[I].Fam);
      Writeln('Введите оценку студента, пересдавшего экзамен.');
      Readln(A[I].O);
    end;
  for I := 2 to 5 do
    if (A[I].O) = 2 then                                    ....
      Writeln(A[I].Fam, ' не пересдал.');
    if (A[I].O) > 3  then                                   ....
      Writeln(A[I].Fam, ' пересдал.');