нужна помощь грамотею в программировании

[shalgan]

Создать файл, содержащий сведения о сдаче студентами сессии. Структура записи: индекс группы, фамилия сту¬дента, оценки по пяти экзаменам и пяти зачетам («з» означает зачет, «н» — незачет). Количество записей—25.
Написал программу сначала для одного экзамена и зачета.

type
  rec=record
  familiya:string[20];
  gruppa:string[20];
  ocenkaecz:string[5];
  ocenkazach:string[2];
  end;
var
  v:rec;
  f:Text;
  n,i:Integer;
begin
writeln('Vvedite kol-vo lydei');
Readln(n);
Assign(f,'C:\Shalaev d.s\f1.txt');
Rewrite(f);
for i:=1 to n do begin
Writeln('vvedite familiyo');
Readln(v.familiya);
Writeln('vvedem gruppu');
readln(v.gruppa);
Writeln('vvedem ocenku za eczamen ot 2 do 5');
Readln(v.ocenkaecz);
Writeln('vvdem ocenke za zachet n ili z');
Readln(v.ocenkazach);
Writeln(f,v.familiya:20, v.gruppa:20, v.ocenkaecz:5, v.ocenkazach:2);
end;
close(f);
readln;
Readln;
end.

Программа запускается,но после "('Vvedite kol-vo lydie')" консольное окно свачивается, помогите пожалуйста!!=(

[Smitt&Wesson]

Блин, не туда посмотрел. Вообще-то, судя по коду, не должна сворачиваться.

[Stilet]

Тоже не вижу причины для падений кроме пути неожиданного.
Нужно по шагам отлаживать, тогда будет понятно на каком операторе падение.

[shalgan]

Сообщение от Smitt&Wesson

Блин, не туда посмотрел. Вообще-то, судя по коду, не должна сворачиваться.

Ну вот сварачивается почему-то

[Stilet]

Жми F7 и скажи на каком операторе упадет.

[shalgan]

Сообщение от Stilet

Жми F7 и скажи на каком операторе упадет.

1231231234.jpg Воооот

[ZX Spectrum-128]

1. Почему textfile в скобках
2. Assignfile, а не assign
3. Closefile, не close

[Serge_Bliznykov]

попробуйте написать вместо Assign(f,'C:\Shalaev d.s\f1.txt');

AssignFile(f,'C:\Shalaev d.s\f1.txt');

и вместо Close(f)

CloseFile(f);

Update
ZX Spectrum-128 опередил!

[shalgan]

Сообщение от ZX Spectrum-128

1. Почему textfile в скобках
2. Assignfile, а не assign
3. Closefile, не close

Исправил,но все равно не помогло =О

Сообщение от Serge_Bliznykov

попробуйте написать вместо Assign(f,'C:\Shalaev d.s\f1.txt');

AssignFile(f,'C:\Shalaev d.s\f1.txt');

и вместо Close(f)

CloseFile(f);

Update
ZX Spectrum-128 опередил!

Теперь вот так,после того как все исправил123123вы.jpg

[ZX Spectrum-128]

Ну снова покажите скриншот