Работа с файлами записей Опции

[Ксанка]

Задание: Дано 2 файла записей типа - название прибора, номер прибора,
год выпуска. Сформировать третий файл где разместить записи 1 и 2 файла
о приборах выпущенных в заданном году. Помогите пожалуйста решить

[volvo]

Oleg_Z
Только я бы немножко исправил вот это:

Код

for i:=0 to filesize(f1)-1 do
begin
seek(f1,i); seek(f2,i);
read(f1,a);
read(f2,b);
if b.god = 2000 then { Ну, или любой другой год :) }
begin
  c.p1:=a.name; c.p2:=a.nom;
  c.p3:=b.god;
  write(f3,c);
end;
end;

Все-таки нужно

Сформировать третий файл где разместить записи 1 и 2 файла о приборах выпущенных в заданном году

...