Оставить в файле сведения только о тех студентах, которые успешно сдали сессию - Free Pascal

const ns = 'student.txt';
      nu = 'temp.tmp';
      nz = 'zadolzn.txt';
 
var s, u, z: text;
    f, t, p: string;
    o: array [1..3] of integer;
    i, err: integer;
    b, q: boolean;
 
begin
  assign(s, ns);
  reset(s);
  assign(u, nu);
  rewrite(u);
  assign(z, nz);
  rewrite(z);
  q := false;
  while not eof(s) do
    begin
      readln(s, t);
      p := t;
      f := copy(t, 1, pos(' ', t));
      delete(t, 1, pos(' ', t));
      b := false;
      for i := 1 to 3 do
        begin
          val(copy(t, 1, pos(' ', t) - 1), o[i] , err);
          delete(t, 1, pos(' ', t));
          b := b or (o[i] <= 2)
        end;
      q := q or b;
      if b
        then writeln(z, p)
        else writeln(u, p)
    end;
  close(s);
  close(u);
  if q
    then begin
      writeln('Неуспевающие студенты:');
      reset(z);
      while not eof(z) do
        begin
          readln(z, t);
          writeln(t);
        end;
      close(z);
      erase(s);
      rename(u, ns)
    end
    else begin
      writeln('Неуспевающих студентов нет');
      close(z);
      erase(z);
      erase(u)
    end;
  readln
end.