Вывести фамилии, имена и отчества всех студентов мужского пола, не сдавших более двух экзаменов Pascal(Паскаль)

program poisk;
type
  TStudent = record
    fio: String[63];
    male: Boolean;
    exam: array [1..3] of Integer;
  end;
var
  st: array [1..10] of Students;
  i, j, k, n: Integer;
begin

  for i:=1 to n do with st[i] do
    if male then begin
      k:=0;
      for j:=Low(exam) to High(exam) do
        if exam[i]<3 then Inc(k);
      if k>2 then WriteLn(fio);
    end;
end.