home *** CD-ROM | disk | FTP | other *** search
/ CD Action 48 / cdactioncoverdisc482000.iso / Bonus / bon.exe / pascal / prog052.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-03-24  |  395 b   |  26 lines
  1. {program052 - Odczyt pliku}
  2.  
  3. program program052;
  4.  uses crt;
  5.   var sciezka:string; 
  6.       plik:text;
  7.       tekst:string;
  8.  
  9. procedure odczytpliku;
  10.  begin
  11.   sciezka:='c:\roboczy.txt';
  12.   assign(plik,sciezka);
  13.   reset(plik);
  14.   while not eof(plik) do
  15.    begin
  16.     readln(plik,tekst);
  17.     writeln(tekst);
  18.    end;
  19.   close(plik);
  20.  end;
  21.  
  22. begin
  23.  clrscr;
  24.  odczytpliku;
  25.  readkey;
  26. end.