[sobrus]

Tak mnie to zaciekawilo ze az delphi zainstalowalem...napisalem takie cos i chodzi bez zajakniecia (z while not eof tez). Oczywiscie pominalem sprawdzanie bledow.
(Delphi7 Personal):

procedure append;
var plik1,plik2: file of char; 
    i:integer;
    znak:char;
begin
  Assign(plik1,'C:\plik1.txt');
  Assign(plik2,'C:\plik2.txt');
  Reset(plik1);
  Reset(plik2);
  Seek(plik2,FileSize(plik2));
  for i:=0 to FileSize(plik1)-1 do
  begin
    Read(plik1,znak);
    Write(plik2,znak);
  end;
  Close(plik1);
  Close(plik2);
end;