Ошибка

[fai]

прога не пашет




Program File_Creat;
uses crt;
type zapis=record
famil:string[15];
data:byte;
end;
var F:file of zapis;
dan:zapis;
name:string;
i:byte;
begin
writeln;
write('Введите имя создаваемого файла ');
readln(name);
assign(F,name);
rewrite(F);
for i:=1 to 5 do with dan do begin
write('фамилия - ');readln(famil);
write('день рождения - ');readln(data);
writeln(F,dan);
end;
close(F);
clrscr;
reset(F);
writeln('Список из файла ',name);
repeat
read(F,dan);
with dan do begin
write('фамилия - ');write(famil,' ');
write('день рождения - ');writeln(data);
end;
until eof(F);
close(F);
end.

[rus12]

а что не работает?

[fai]

говорт что где то ошибка
незапускается