Odczytywanie pliku

program plik;
uses crt;
const nazwapliku='tekst.txt';
var
   f:text;
   wiersz:string;
begin
     clrscr;
     assign(f,nazwapliku);
     reset(f);
     while not eof(f) do
     begin
          readln(f,wiersz);
          writeln(wiersz);
     end;
     close(f);
     readkey;
end.