home *** CD-ROM | disk | FTP | other *** search
/ CD Action 48 / cdactioncoverdisc482000.iso / Bonus / bon.exe / pascal / prog048.pas next >
Pascal/Delphi Source File  |  2000-03-24  |  433b  |  24 lines
  1. {program 048 - Tworzenie pliku tekstowego}
  2.  
  3. program program048;
  4.  uses crt;
  5.   var sciezka,nazwa:string; 
  6.       plik:text;
  7.  
  8. procedure nowyplik;
  9.  begin
  10.   write('Podaj ÿcie╛k⌐ gdzie utworzony ma byå plik: ');
  11.   readln(sciezka);
  12.   write('Podaj nazw⌐ pliku: ');
  13.   readln(nazwa);
  14.   sciezka:=concat(sciezka,nazwa);
  15.   assign(plik,sciezka);
  16.   rewrite(plik);
  17.   close(plik);
  18.  end;
  19.  
  20. begin
  21.  clrscr;
  22.  nowyplik;
  23.  readkey;
  24. end.