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

[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.

[volvo]

Твоя программа не только не работает, она даже не компилируется... Во-первых, поле в записи Book должно называться Fam, а не Am... Во-вторых, в процедуре Add_Rec у тебя внутри цикла по i присутствует еще один цикл, тоже по i, что в принципе приведет к очень неожиданным результатам... В третьих -

Writeln (fv,sved);

в той же процедуре смысла не имеет, нельзя WriteLn использовать с типизированными файлами... Это что касается синтаксиса...

Теперь о логике: какой смысл в том, что ты 5 раз подряд читаешь в одну и ту же переменную:

For i:= 1 to 5 do
Begin
  Writeln('ocenki');
  readLn(sved.ocenki);
  Writeln(' Zachet');
  readLn(sved. Zachet);
end;

? Может, тебе надо массив оценок сделать все-таки?

Ну, и наконец, я говорил в третьем посте: ты нигде ничего не читаешь в переменную Ch1 (процедура Sozd_File), почему ты думаешь, что цикл Repeat ... Until Ch1 = #27 когда-нибудь закончится?

Исправляй все ошибки, потом продолжим...