Формирование Файла f3, имея Файлы f2 и f1, из которых записываются строки

type zap=record
             x:integer;
             y:real;
             end;
var f1,f2,f3:file of zap;

type zap=record
             x:integer;
             y:real;
             end;
     tfile=file of zap;
procedure new_file(var f1,f2,f3:tfile);
var z1,z2:zap;
begin
reset(f1);
reset(f2);
rewrite(f3);
while not eof(f1)or not eof(f2) do //пока не дошли до конца каждого из файлов
 begin
  if not eof(f1)and not eof(f2) then //если оба не кончились
   begin
    read(f1,z1);
    read(f2,z2);
    write(f3,z1,z2);
   end
  else if eof(f1) then
   begin
    read(f2,z2);
    write(f3,z2);
   end
  else if eof(f2) then
   begin
    read(f1,z1);
    write(f3,z1);
   end;
 end;
end;
var f1,f2,f3:tfile;
    n,i:integer;
    z:zap;
begin
assign(f1,'file1');
rewrite(f1);
assign(f2,'file2');
rewrite(f2);
assign(f3,'file3');
randomize;
n:=10+random(10);//количество записей в 1 файле
for i:=1 to n do
 begin
  z.x:=10+random(90);
  z.y:=9*random;
  write(f1,z);
 end;
n:=10+random(10);//количество записей в 2 файле
for i:=1 to n do
 begin
  z.x:=10+random(90);
  z.y:=9*random;
  write(f2,z);
 end;
writeln('Содержание 1 файла');
reset(f1);
for i:=0 to filesize(f1)-1 do
 begin
  read(f1,z);
  write(z.x:3,z.y:5:2,'; ');
  if (i+1) mod 7=0 then writeln;
 end;
writeln;
writeln('Содержание 2 файла');
reset(f2);
for i:=0 to filesize(f2)-1 do
 begin
  read(f2,z);
  write(z.x:3,z.y:5:2,'; ');
  if (i+1) mod 7=0 then writeln;
 end;
writeln;
new_file(f1,f2,f3);
writeln('Содержание 3 файла');
reset(f3);
for i:=0 to filesize(f3)-1 do
 begin
  read(f3,z);
  write(z.x:3,z.y:5:2,'; ');
  if (i+1) mod 7=0 then writeln;
 end;
close(f1);
close(f2);
close(f3);
end.