Reset(f);
Seek(f, FileSize(f));

Program studentdata;
const
  N = 3;
type
  tstudent = record
    name: string;
    result: byte;
  end;
  text = file of tstudent;

var
  f: text;
  i: integer;
  man: tstudent;

begin
  assign (f, 'readme.doc');

  reset(f);
  seek(f, filesize(f));
  For i:= 1 to N do begin
    write('Введите имя: '); readln(man.name);
    write('Введите оценку: '); readln (man.result);
    write(f, man);
  end;

  close(f);
  reset(f);
  i := 0;
  while not EOF (f) do begin
    read(f, man);
    if man.result = 5 then i:= i+1;
  end;
  writeln( 'Число отличников: ',i);
  close (f);
end.