Kopiowanie pliku

program plik;
uses crt;
const 
	n1='tekst.txt';
	n2='slowa2.txt';
var
   f:text;
   wiersz:string;
   slowa:array[1..100] of string;
   licznik:integer;
begin
     licznik:=1;
     clrscr;
     assign(f,n1);              
     reset(f);
     while not eof(f) do
     begin
     readln(f,wiersz);
     if wiersz <>'' then
     begin
          slowa[licznik]:=wiersz;
          licznik:=licznik+1;
     end;
     end;
     readkey;
     close(f);
     assign(f,n2);
     rewrite(f);
     while licznik>1 do
     begin
          licznik:=licznik-1;
          writeln(f,slowa[licznik]);
     end;
     close(f);
     readln;
end.