Считывание списка(record) из текстового файла.

Задание:
Редактором на диске создать файл со структурой:
I Наименование произв I Автор работы I Год издания I Инвентарный номер I
I А(20) I А(15) I 9(4) I X(10) I

Мне надо то что пользователь введет в блокноте с именем kat3.txt выдать на экран и вывести список произведений напечатанных до 1950 г.

Вод код программы:

type kat = record
pro: string [20];
avt: string [15];
god: word;
nom: word;
end;

var
a:array [1..100] of kat;
kat1:text;
i:byte;

begin

assign(kat1,'C:\Users\User\Desktop\Новая папка\kat3.txt');
reset(kat1);

while not eof(kat1) do begin
for i:=1 to 3 do
with a[i] do begin
read(kat1,pro,avt,god,nom);
writeln(pro,avt,god,nom)
end;
end;
close(kat1);

writeln('Список произведений до 1950 года');
for i:=1 to 3 do
with a[i] do
if god < 1950 then writeln (pro,avt,god,nom);

end.

Контрольный пример:
Ввод в блокнот -> Один Два 3 4

Проблема такова что он всю эту строку приписывает a[i].pro а мне надо чтобы присваивалось каждое слово новой подпеременной рекорд. И вот я не знаю как правильно считать такой файл.

Заранее спасибо.

0

У вас в задании сказано что файл должен быть .txt?

0

Сообщение от BlackM666 У вас в задании сказано что файл должен быть .txt?

Сказано редактором на диске создать файл со структурой

Добавлено через 51 секунду
а что тут уместен типизированный файл?

0

Я б сделал через тф а так из тхт считывайте по строчкам как массив

И в конце так удобнее смотреть=)

1

Сообщение от BlackM666 Я б сделал через тф а так из тхт считывайте по строчкам как массив Pascal 1 2 3 4 5 6 7 for i:=1 to 3 do  with a[i] do begin  readln(kat1,pro);  readln(kat1,avt);  readln(kat1,god);  readln(kat1,nom);  end; И в конце так удобнее смотреть=) Pascal 1 writeln (pro:21,avt:16,god:5,nom:11);

да делал я так, сейчас попробую снова может тогда что ни так написал =)

Добавлено через 8 минут
Это работает но текст в блокноте вот такой:
Один
Два
3
4

0