Program P94;
 { Citirea fişierului text FILE.TXT }
var F : text;
    c : char;
begin
 assign(F, 'FILE.TXT');     { asociază F cu FILE.TXT }
 reset(F);                  { deschide F pentru citire }
 while not eof(F) do
   begin
     while not eoln(F) do
       begin
         read(F, c);        { citeşte c din F }
         write(c);          { scrie c în Output }
       end;
     readln(F);             { trece la linia următoare din F }
     writeln;               { scrie EOL în Output }
   end;
 close(F);                  { închide F }
 readln;
end.