В двух файлах записано по 10 чисел, создать третий файл ,в котором чередуются числа первых двух файла. Написать в программе PascalABC

var   f1, f2 :array [1..10] of integer;   i :integer;   input, output :text;   begin   assign(input,'input1.txt');   reset(input);   for i:= 1 to 10 do      read(input,f1[i]);   close(input);     assign(input,'input2.txt');   reset(input);   for i:= 1 to 10 do      read(input,f2[i]);   close(input);     assign(output,'output.txt');   rewrite(output);   for i:= 1 to 10 do   begin     writeln(output,f1[i]);     writeln(output,f2[i]);   end;   close(output); end.

var   input1, input2, output : Text;   i, number : integer; begin   AssignFile(input1, 'input1.txt');   AssignFile(input2, 'input2.txt');   AssignFile(output, 'output.txt');   Reset(input1);   Reset(input2);   Rewrite(output);   for i := 1 to 10 do   begin     read(input1, number);     write(output, number, ' ');     read(input2, number);     write(output, number, ' ');   end;   CloseFile(input1);   CloseFile(input2);   CloseFile(output);   writeln('Готово'); end.