В файле хранится информация о каждом студенте группы: фамилия и оценки по трем предметам. Переписать эти данные в другой файл записей, исключая сведения о неуспевающих студентах- Pascal(Паскаль)

Program ucheniki;

type
  uch = record
    fam: string;
    ball: array [1 .. 100] of integer;
  end;

var
  f: text;
  gr: array [1 .. 3] of uch;
  i: integer;
  u: uch;

begin
  assign(f, 'filee.txt');
  reset(f);
  for i := 1 to 3 do
  begin
    readln(f, gr[i].fam);
    readln(f, gr[i].ball[1]);
    readln(f, gr[i].ball[2]);
    readln(f, gr[i].ball[3]);
  end;
  close(f);
  assign(f, 'ress.txt');
  rewrite(f);
  for i := 1 to n do
  begin
    fl := true;
    for j := 1 to 3 do
      if gr[i].ball[j] < 3 then
        fl := false;
    if fl then
    begin
      write(h, gr[i].fam); // пишем построчно в новый текстовый файл
      for j := 1 to 3 do
        write(h, gr[i].ball[j]:3);
      writeln(h);
    end;
  end;
  close(f);

end.