Файлы. Создать новый текстовый файл, являющийся объединением содержимого исходных файлов

while not EOF(Name1) do
begin
  ReadLn(Name1, temp);
  WriteLn(Name3, temp);
end;
while not EOF(Name2) do
begin
  ReadLn(Name2, temp);
  WriteLn(Name3, temp);
end;

program zadanie8;
var Name1,Name2,Name3:file of integer;
begin
while not EOF(Name1) do
begin
  ReadLn(Name1, temp);
  WriteLn(Name3, temp);
end;
while not EOF(Name2) do
begin
  ReadLn(Name2, temp);
  WriteLn(Name3, temp);
end;
end.

var
  Name1,Name2,Name3: Text;
  temp: string;
begin
  Assign(Name1, 'name1.txt');
  Assign(Name2, 'name2.txt');
  Assign(Name3, 'name3.txt');
  Reset(Name1);
  Reset(Name2);
  Rewrite(Name3);
  while not EOF(Name1) do
  begin
    ReadLn(Name1, temp);
    WriteLn(Name3, temp);
  end;
  while not EOF(Name2) do
  begin
    ReadLn(Name2, temp);
    WriteLn(Name3, temp);
  end;  
  Close(Name1);
  Close(Name2);
  Close(Name3);
  WriteLn('Done');
  ReadLn;
end.