Создать типизированный файл, в который нужно ввести Фамилию студента и 3 оценки

uses crt;
type stud=record
          fam:string[20];
          ocn:array[1..3] of integer;
          end;
var f:file of stud;
    z:stud;
    n,i,j,k:integer;
    w:char;
    fm:string[20];
begin
assign(f,'stud.dat');
rewrite(f);//файл будет создан в пепке с программой
write('Данные о скольки студентах записать в файл n=');
readln(n);
for i:=1 to n do
 begin
  writeln('Студент ',i);
  with z do
   begin
    write('Фамилия: ');readln(fam);
    writeln('Введите 3 оценки от 2 до 5');
    for j:=1 to 3 do
    repeat
    readln(ocn[j]);
    until ocn[j] in [2..5];
    write(f,z);
   end;
 end;
clrscr;
repeat
clrscr;
writeln('Осуществить поиск');
writeln('1-по номеру');
writeln('2-по фамилии');
writeln('другое выход');
readln(w);
case w of
'1':begin
    clrscr;
    seek(f,0);
    write('Введите номер k=');
    readln(k);
    if(k<1)or (k>filesize(f)) then writeln('Такого номера нет')
    else
     begin
      seek(f,k-1);//индексы с 0, на 1 меньше чем номер
      read(f,z);
      write(z.fam);
      for j:=1 to 3 do
      write(' ',z.ocn[j]);
     end;
    readln;
   end;
'2':begin
    clrscr;
    write('Введите фамилию: ');
    readln(fm);
    seek(f,0);
    k:=0;
    while not eof(f) do
     begin
      read(f,z);
      if z.fam=fm then
       begin
        k:=1;//есть какой
        write(z.fam);
        for j:=1 to 3 do
        write(' ',z.ocn[j]);
        writeln
       end;
     end;
    if k=0 then write('Такой фамилии нет');
    readln
   end;
else
 begin
  close(f);
  exit
 end;
end;
until not(w in ['1','2'])
end.