Создать файл, содержащий ФИО студентов

uses crt;
type TStud=record
           fam:string[20];
           oc:array[1..3]of byte;
           end;
var sp:Tstud;
    f:file of Tstud;
    n,i,j,k:integer;
    c:char;
begin
clrscr;
assign(f,'stud');
rewrite(f);
writeln('Введите данные, окончание ввода Esc');
repeat
writeln('Студент ',i);
write('  Фамилия И.О.: ');readln(sp.fam);
for j:=1 to 3 do
repeat
write('  Оценка ',j,'=');
readln(sp.oc[j]);
until sp.oc[j] in [2..5];
write(f,sp);
c:=readkey;
until c=#27;
clrscr;
writeln('Список группы:':30);
writeln;
writeln('----------------------------------------------');
writeln('|    Фамилия И.О.    | Oцен 1| Oцен 2| Oцен 3|');
writeln('----------------------------------------------');
reset(f);
while not eof(f) do
  begin
   read(f,sp);
   write('| ',sp.fam);
   for j:=1 to 3 do
      begin
       gotoXY(22+8*(j-1),whereY);
       write('|  ',sp.oc[j]);
      end;
   gotoXY(46,whereY);
   write('|');
   writeln;
  end;
writeln('----------------------------------------------');
readln;
clrscr;
close(f);
reset(f);
writeln('Список студентов, успешно сдавших экзамены:':40);
writeln;
writeln('----------------------------------------------');
writeln('|    Фамилия И.О.    | Oцен 1| Oцен 2| Oцен 3|');
writeln('----------------------------------------------');
k:=0;
while not eof(f)  do
  begin
    read(f,sp);
    if (sp.oc[1]>2)and(sp.oc[2]>2)and(sp.oc[3]>2) then
      begin
        k:=1;
        write('| ',sp.fam);
        for j:=1 to 3 do
          begin
           gotoXY(22+8*(j-1),whereY);
           write('|  ',sp.oc[j]);
          end;
        gotoXY(46,whereY);
        write('|');
        writeln;
      end;
  end;
 writeln('----------------------------------------------');
if k=0 then write('Таких студентов нет!');
close(f);
readln
end.