Паскаль / do9 / iriepas201 / Irie Pascal / samples / type

(**************************************************************************
** This program copies characters from the input file to the output file.
**
** Syntax: ivm type [in [out]]
**    where 'in' is the name of the input file. If 'in' is omitted then
**          the standard input stream is used.
**    and  'out' is the name of the output file. If 'out' is omitted then
**         the standard output stream is used.
*)
program typ(f, out);
var
   f, out : text;
   c : char;
begin
   reset(f);            (* Open "in" or the standard input *)
   rewrite(out);        (* Open "out" or the standard output *)
   while not eof(f) do
      if eoln(f) then
         begin
            readln(f);
            writeln(out)
         end
      else
         begin
            read(f, c);
            write(out, c)
         end
end.