Имеются два файла с упорядоченными числами по возрастанию: F1 и F2. Осуществить их слияние в F3

program Project1;
const
Fn1 = 'file1.txt';
Fn2 = 'file2.txt';
Fn3 = 'file3.txt';
N = 100;
var
F1, F2, F3 : Text;
i, j, k, Num : Integer;
Arr : array[1..N] of Integer;
begin
Assign(F1, Fn1);
Assign(F2, Fn2);
Assign(F3, Fn3);
Rewrite(F1);
i := 0;
while i <= 10 do begin
if i > 0 then Writeln(F1);
Write(F1, i);
i := i + 2;
end;
Flush(F1);
Rewrite(F2);
i := 1;
while i <= 10 do begin
if i > 1 then Writeln(F2);
Write(F2, i);
i := i + 2;
end;
Flush(F2);
Reset(F1);
i := 0;
while not Eof(F1) do begin
i := i + 1;
Read(F1, Arr[i]);
end;
Reset(F2);
while not Eof(F2) do begin
Readln(F2, Num);
j := 1;
while (j <= i) and (Arr[j] < Num) do begin
j := j + 1;
end;
 
(*НАЧАЛО*)
 
if j > i then begin
Arr[j] := Num;
end else begin
for k := i downto j do begin
Arr[k + 1] := Arr[k];
end;
Arr[j] := Num;
end;
 
(*КОНЕЦ*)
 
i := i + 1;
end;
Rewrite(F3);
for j := 1 to i do begin
if j > 1 then Writeln(F3);
Write(F3, Arr[j]);
end;
Flush(F3);
Close(F1);
Close(F2);
Close(F3);
Writeln('Задача выполнена. Результаты записаны в файлы:');
Writeln(Fn1, ', ', Fn2, ', ', Fn3);
Readln;
end.