типизированные файлы, что-то не работает Опции

[Bast]

Разработайте программу вывода файла содержащего некоторые данные. Сведенья о сдаче студентами сесии:
-номер группы;
-фио;
-оценка по 5 экзаментам и зачетам(зачет\незачет).
Вот собственно код

Uses
Crt;
Type
Book = Record
 fam:String[20];
 name:String[20];
 otch:String[20];
End;
Zap=Record
 Fio:Book;
 n_grup:String[6];
 ocenki:String[1];
 Zachet:string[7];
End;
Var
 fv: file of Zap;
 file_name:string;
 razmer:Integer;
 sved:Zap;
 ch:Char;
 p,i:Byte;
Procedure Add_Rec;
 Begin
  WriteLn('Ввдите количество записей');
  ReadLn(razmer);
  For i:= 1 to razmer do
  Writeln('Fam');
  ReadLn(sved.fio.fam);
  Writeln('n_grup');
  readLn(sved.n_grup);
  Writeln('ocenki');
  readLn(sved.ocenki);
  Writeln(' Zachet');
  readLn(sved. Zachet);
end;
Procedure Sozd_file;
 Var
  Ch1:Char;
begin
 Writeln('создание файла');
 Writeln('введите имя файла');
 Read(file_name);
 Assign(fv, file_name);
 Rewrite(fv);
 writeln('введите сведенья');
 repeat
 Add_rec;
 Until Ch1=#27;
 Close(fv);
End;
Procedure Out_rec;
 Begin
  Read(fv,sved);
  Writeln(sved.fio.fam);
  Writeln(sved.n_grup);
  Writeln(sved.ocenki);
  Writeln(sved. Zachet);
End;
 Procedure Out_All_Rec;
Begin
 Writeln('чтение файла');
 Writeln('введите имя файла');
 readln(file_name);
 Assign(fv,file_name);
 reset(fv);
 seek(fv,0);
 While not Eof(fv) do
 Close(fv);
End;
 Begin
  Writeln('1:add_rec');
  Writeln('2:Sozd_file');
  Writeln('3:Out_rec');
  Writeln('4:Out_all_rec');
 Case P of
  1:Add_rec;
  2:sozd_file;
  3:Out_rec;
  4:out_all_rec;
 end;
ReadKey;
End.