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

type
f1rec=record
       name:string;
       nom:word;
      end;
f2rec=record
       god:word;
      end;
f3rec=record
       p1:string;
       p2,p3:word;
      end;
var
a:f1rec; b:f2rec; c:f3rec;
f1:file of f1rec;
f2:file of f2rec;
f3:file of f3rec;
i:longint;
begin
assign(f1,'1.dat');
assign(f2,'2.dat');
assign(f3,'3,dat');
reset(f1); reset(f2); rewrite(f3);
for i:=0 to filesize(f1)-1 do
begin
 seek(f1,i); seek(f2,i);
 read(f1,a);
 read(f2,b);
 c.p1:=a.name; c.p2:=a.nom;
 c.p3:=b.god;
 write(f3,c);
end;
close(f1); close(f2); close(f3);
end.

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;