Работа с файлами. Даны три файла целых чисел. Создать новый файл, в котором чередовались бы элементы исходных файлов

uses crt;
var f1,f2,f3,f: file of integer;
    i,n: integer;
    sa,sb,sc,sd: string;
begin
sa:='file1.dta';  sa:='D:\'+sa;
sb:='file2.dta';  sb:='D:\'+sb;
sc:='file3.dta';  sc:='D:\'+sc;
write('Óêàæèòå íàçâàíèå ðåçóëüòèðóþùåãî ôàéëà: '); readln(sd); sd:='D:\'+sd+'.dta';
assign(f1,sa);
assign(f2,sb);
assign(f3,sc);
assign(f,sd);
rewrite(f1); rewrite(f2); rewrite(f3);
for i:=1 to 10+random(10) do
    begin
    n:=random(199)-99; write(f1,n);
    n:=random(199)-99; write(f2,n);
    n:=random(199)-99; write(f3,n);
    end;
writeln('èñõîäíûå ôàéëû çàïîëíåíû ñëó÷àéíûì êîëè÷åñòâîì ñëó÷àéíûõ ÷èñåë');
reset(f1); reset(f2); reset(f3); rewrite(f);
while not (eof(f1)) do
      begin
      read(f1,n); write(f,n);
      read(f2,n); write(f,n);
      read(f3,n); write(f,n);
      end;
writeln;
writeln('Êîìïîíåíòû èñõîäíûõ ôàéëîâ');
writeln('    ôàéë 1  ôàéë 2  ôàéë 3            Èòîãîâûé ôàéë');
reset(f1); reset(f2); reset(f3); reset(f);
while not (eof(f1)) do
      begin
      read(f1,n); write(n:8);
      read(f2,n); write(n:8);
      read(f3,n); write(n:8);
      for i:=1 to 7 do write(' ');
      for i:=1 to 3 do
          begin
          read(f,n); write(n:7);
          end;
      writeln;
      end;
close(f1); close(f2); close(f3); close(f);
end.