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