Добавить в начало первого файла содержимое второго файла

var
i,n1,n2:integer;
s1,s2:array[1..1000] of string;
f1,f2:text;
Begin
Assign(f1,'file1.txt');
Assign(f2,'file2.txt');
Reset(f1);
Reset(f2);
i:=0;
While not eof(f1) do
 begin
  i:=i+1;
  Readln(f1,s1[i]);
 end;
n1:=i;
i:=0;
While not eof(f2) do
 begin
  i:=i+1;
  Readln(f2,s2[i]);
 end;
n2:=i;
Close(f1);
Close(f2);
Rewrite(f1);
for i:=1 to n2 do
 Writeln(f1,s2[i]);
for i:=1 to n1 do
 Writeln(f1,s1[i]);
Close(f1);
End.

var f1,f2: text;
    str: string;
    begin
    assign(f1,'file1.txt');
    assign(f2,'file2.txt');
    reset(f1);
    append(f2);
    writeln(f2);
    while not EoF(f1) do
    begin
         readln(f1,str);
         writeln(f2,str);
    end;
    close(f1);
    close(f2);
    reset(f2);
    rewrite(f1);
    while not EoF(f2) do
    begin
         readln(f2,str);
         writeln(f1,str);
    end;
    close(f2);
    close(f1);
    end.

const f1 = 'file1.txt';
      f2 = 'file2.txt';
      f3 = 'temp.tmp';
var s: string;
    f, g: text;
begin
  assign(g, f3);
  rewrite(g);
  assign(f, f2);
  reset(f);
  while not eof(f) do
    begin
      readln(f, s);
      writeln(g, s)
    end;
  close(f);
  assign(f, f1);
  reset(f);
  while not eof(f) do
    begin
      readln(f, s);
      writeln(g, s)
    end;
  close(f);
  close(g);
  erase(f);
  rename(g, f1)
end.