home *** CD-ROM | disk | FTP | other *** search
/ CD Action 48 / cdactioncoverdisc482000.iso / Bonus / bon.exe / pascal / prog051.pas < prev    next >
Pascal/Delphi Source File  |  2000-03-24  |  528b  |  30 lines
  1. {program051 - Pliki cd.}
  2.  
  3. program program051;
  4.  uses crt;
  5.   var sciezka:string; 
  6.       plik:text;
  7.       koniec:byte;
  8.       tekst:string;
  9.  
  10. procedure textdopliku;
  11.  begin
  12.   koniec:=0;
  13.   sciezka:='c:\roboczy.txt';
  14.   assign(plik,sciezka);
  15.   append(plik);
  16.    repeat
  17.     write('Podaj tekst do wpisu: ');
  18.     readln(tekst);
  19.     writeln(plik,tekst);
  20.     writeln('Dalej/ZakoΣcz [coÿ/esc]');
  21.     if readkey=#27 then koniec:=1;
  22.    until koniec=1;
  23.   close(plik);
  24.  end;
  25.  
  26. begin
  27.  clrscr;
  28.  textdopliku;
  29.  readkey;
  30. end.