Даны два текстовых файла Name1 и Name2. Добавить в конец файла Name1 содержимое файла Name2 — Pascal(Паскаль)

var
  Name1,Name2:Text;
  s:string;
begin
  Assign(Name1,'Name1.txt');
  Assign(Name2,'Name2.txt');
  Append(Name1);
  Reset(Name2);
  while not EOF(Name2) do
  begin
    ReadLn(Name2,S);
    WriteLn(Name1,S)
  end;
  Close(Name1);
  Close(Name2)
end.