Из текстового файла сохранить данные в типизированный тип

[pascal009]

Данные представлены в виде записи, имеющей 3 поля(автор, название и количество). Нужно прочитать эти данные из текстового файла и сохранить в типизированном файле.
Вот код, здесь данные просто вводятся с клавиатуры и сохраняются в типизированный файл, а как сделать, чтобы читался текстовый файл и затем уже в типизированный сохранялись данные?

uses crt;
const N=2;
type tbook=record
           autor:string[40];
           title:string[80];
           count:word;
          end;
 
var b:tbook;
f:file of tbook;
i:integer;
books:array[1..N] of tbook;
begin
 
 
assign(f,'books.dat');
rewrite(f);
for i:=1 to N do begin
with b do begin
write('Введите автора: ');
readln(autor);
clrscr;
write('Введите название: ');
readln(title);
clrscr;
write('Введите количество: ');
readln(count);
clrscr;
end;
write(f,b);
end;
close(f);
 
assign(f,'books.dat');
reset(f);
 
while not eof(f) do
 begin
  read(f,b);
  writeln(b.autor,' ',b.title,' ',b.count);
  end;
 close(f);
 
 
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Arigato]

как сделать, чтобы читался текстовый файл

f1: text;
...
assign(f1,'books.txt');
reser(f1);
while not eof(f1) do begin
  with b do begin
    readln(f1, autor);
    readln(f1, title);
    readln(f1, count);
  end;
  write(f, b);
end;
close(f1);

затем уже в типизированный сохранялись данные?

Задание такое.

[Serge_Bliznykov]

если формат текстового файла не задан и нужно сделать максимально просто и быстро,
то
1) создаёте текстовый файл, в котором каждое поле помещаете в отдельную строку:
Булгаков М.А.
Мастер и Маргарита
20
Пушкин А.С.
Руслан и Людмила
5


2) описываете переменную

 f1 : Text;

3) изменяете код на такой

Assign(f1,'ИмяФайла.txt');
Reset(f1);
Assign(f,'books.dat');
Rewrite(f);
while Not eof(f1) do begin
  readln(f1, b.autor);
  readln(f1, b.title);
  readln(f1, b.count);
  write(f,b);
end;
close(f);
close(f1);

если же текстовый файл содержит каждую записи в виде одной строки, то нужно писать чтение этой строки из файла и парсинг (разбор) на отдельные поля.
Это тоже не сложно, я писал примеры подобного кода тут, на форуме...