прога на Паскале помогите исправить ошибку:(

[Jeksik]

Разработать программу учёта личной библиотеки в файл и вывести на экран.

program j(f);

type
t=record
avtor:string[20];
nazv:string[50];
god:byte;
nomer:byte;end;

var
i:integer; f:text;
a:t; s:string;

begin
assign(f,'d:\bibl.txt');

rewrite(f);
for i:=1 to 5 do begin
writeln('Vvedite FIO avtora '); Readln(a.avtor);
writeln('Vvedite nazvanie knigi '); Readln(a.nazv);
writeln('Vvedite god knigi'); Readln(a.god);
writeln('Vvedite nomer knigi'); Readln(a.nomer);
writeln(f,s);end;
close(f);

reset(f);
while not EOF(f) do begin
readln(f,a.avtor,a.nazv,a.god,a.nom er);
writeln(a.avtor,a.nazv,a.god,a.nome r);
end;
end.

Вроде всё вводит некаких ошибок,но в файле введённая инфа не появляется,открываю вайл а там просто типа использовано 6 строк. подскажите что в ней не правельно пожалуйста

[Jeksik]

http://pevm07-02.at.ua/BIBL.TXT вот кстате этот файл который создаётся прогой

[RamireZ]

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

Разработать программу учёта личной библиотеки в файл и вывести на экран.

Вроде всё вводит некаких ошибок,но в файле введённая инфа не появляется,открываю вайл а там просто типа использовано 6 строк. подскажите что в ней не правельно пожалуйста

Я конечно изучал Pascal ABC и по тамошним правилам в типизированный файл можно записывать тллько с пом. оператора write,НО не writeln
Итак,вот что у меня получилось,что изменил-выделил(если что неподойдет,отпишешь):

program j;

type
t=record
avtor:string[20];
nazv:string[50];
god:string[4];
nomer:string[10];end;

var
i:integer; f:file of t;
a:t;
s:string;

begin
assign(f,'d:\bibl.txt');

rewrite(f);
for i:=1 to 5 do begin
write('Vvedite FIO avtora '); Readln(a.avtor);
write('Vvedite nazvanie knigi '); Readln(a.nazv);
write('Vvedite god knigi'); Readln(a.god);
write('Vvedite nomer knigi'); Readln(a.nomer);
write(f,a);end;
close(f);//также убрал вывод содержимого файла,его ведь можно просмотреть и не программно
end.

если неподходит-отпиши,подумаем

[Jeksik]

вроде всё норм но только когда я его открываю (сам файл) он меня спрашивает типа он бинарный бы всёравно хотите его открыть? если я говорю да тогда он открывает и вот что внутри:вот файл http://pevm07-02.at.ua/BIBL.TXT просто потом я написал прогу для поиска которая должна находить фамилию автора и чёто она не находитничего.

Сктате вот прога

program jj(w);

var
w:text;
poisk:string[20];
avtor:string[20];
nazv:string[50];
god:string[4];
nomer:string[4];
n:integer;
begin
Writeln('Poisk knigi po Familii');
assign(w,'d:\bibl.txt');
reset(w);

repeat write('familiya--> '); readln(poisk);
if Length(poisk) <> 0 then
begin
reset(w);
n:=0;
while not EOF(w) do
begin
readln(w,avtor);
read(w,nazv);
read(w,god);
read(w,nomer);
if avtor = poisk then
begin
writeln(avtor,'',nazv,'',god,'',nom er);
n:=n+1;
end;
end;
if n=0 then writeln('svedenei ob ',poisk,' net');
end;
until length(poisk) = 0;
writeln('dlya zaversheniya najmite <ENTER>.');
readln;
end.

[RamireZ]

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

вроде всё норм но только когда я его открываю (сам файл) он меня спрашивает типа он бинарный бы всёравно хотите его открыть? если я говорю да тогда он открывает и вот что внутри:вот файл http://pevm07-02.at.ua/BIBL.TXT просто потом я написал прогу для поиска которая должна находить фамилию автора и чёто она не находитничего.

Сктате вот прога

типизированнные файлы обычно открывают с помощью hex-редакторов