home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 02 / t3.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-02-05  |  282 b   |  20 lines
  1. program demo;
  2. var f:text;
  3.    a:array[1..10] of char;
  4.    c:char;
  5. procedure init;
  6. begin
  7.   reset(f,'inp.pas');
  8.   repeat
  9.     while not eof(f) and not eoln(f) do begin
  10.       read(f,c); write(c);
  11.     end;
  12.     writeln;readln(f);
  13.   until eof(f);
  14. end;
  15.  
  16. begin
  17.   init
  18. end.
  19.  
  20.