Текстовые файлы. В третий файл внести поочередно 2 первые строки из второго файла,а затем из первого

Uses CRT;
Const n=10;
      m=12;
var
omg:array[1..m] of string[20];
nazv,str:array[1..n] of string[20];
i,j:integer;
F,F1,F2:text;
begin
     ClrScr;
     nazv [1]:=('Ñòðîêà 1');
     nazv [2]:=('Ñòðîêà 2');
     nazv [3]:=('Ñòðîêà 3');
     nazv [4]:=('Ñòðîêà 4');
     nazv [5]:=('Ñòðîêà 5');
     nazv [6]:=('Ñòðîêà 6');
     nazv [7]:=('Ñòðîêà 7');
     nazv [8]:=('Ñòðîêà 8');
     nazv [9]:=('Ñòðîêà 9');
     nazv [10]:=('Ñòðîêà 10');
 
     str [1]:=('Ñòðîêà 1 2-ãî ôàéëà');
     str [2]:=('Ñòðîêà 2 2-ãî ôàéëà');
     str [3]:=('Ñòðîêà 3 2-ãî ôàéëà');
     str [4]:=('Ñòðîêà 4 2-ãî ôàéëà');
     str [5]:=('Ñòðîêà 5 2-ãî ôàéëà');
     str [6]:=('Ñòðîêà 6 2-ãî ôàéëà');
     str [7]:=('Ñòðîêà 7 2-ãî ôàéëà');
     str [8]:=('Ñòðîêà 8 2-ãî ôàéëà');
     str [9]:=('Ñòðîêà 9 2-ãî ôàéëà');
     str [10]:=('Ñòðîêà 10 2-ãî ôàéëà');
Assign(F, 'Work.txt');
     Rewrite(F);
     for i:=1 to n do
     begin
     Writeln(F,nazv[i]);
     end;
     close(F);
Assign(F1, 'Work1.txt');
     Rewrite(F1);
     for i:=1 to n do
     begin
     Writeln(F1,str[i]);
     end;
     close(F1);
Assign(F, 'Work.txt');
     Reset(f);
     for i:=1 to n do Readln(F,nazv[i]);
     Close(f);
Assign(F1, 'Work1.txt');
     Reset(f1);
     for i:=1 to n do Readln(F1,str[i]);
     Close(f1);
Assign (F2, 'Work2.txt');
     Rewrite(f2);
omg[1]:=str[1];
omg[2]:=str[2];
for i:=3 to m do
     begin
          omg[i]:=nazv[i-2];
     end;
     for i:=1 to m do writeln(F2,i,' ',omg[i]);
     Close(f2);
for i:=1 to n do
    begin
         gotoxy(j,i);
         writeln(nazv[i]);
    end;
for i:=1 to n do
    begin
         gotoxy(j+15,i);
         writeln(str[i]);
    end;
for i:=1 to m do
    begin
         gotoxy(j+40,i);
         writeln(omg[i]);
    end;
end.