pascal kopiowanie pliku

Jaka jest funkcja na kopiowanie pliku w Pascalu??

otwierasz jeden plik, w tym samym czasie tworzysz nowy, i tylko przepisujesz tresc.

na plikach teksowych:

var f1,f2:text;
      s:string;
begin
assign(f1,'plik.txt');
assign(f2,'poskopiowaniu.txt');
reset(f1);
rewrite(f2);
while not eof(f1) do
 begin
  readln(f1,s);
  writeln(f2,s);
 end;
close(f1);
close(f2);
end;

dla plikow dowolnego typu tak samo z tym ze uzyj: blockread, blokwrite

Przepraszam.. nie mogłem się powstrzymać.. <lol>

//[rotfl][rotfl] - AndRew - chcesz mi płacić rentę? Jeszcze coś sobie zrobię ze śmiechu. Ale odpowiedź trafna [browar] - m.M

//100% trafne :D juz wiem gdzie to umieszcze :] - lofix