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

(**************************************************************************
** This program copies characters from the input file to the standard output
**
** Syntax: ivm type2 in
** where 'in' is the name of the input file.
*)
program type2(output);
var
f : text;
c : char;
begin
if paramcount <> 1 then
begin
writeln('Types the contents of the input file to the standard output');
writeln('Syntax: ivm type2 in');
writeln('where ''in'' is the input file');
halt
end;
assign(f, paramstr(1));
reset(f); (* Open 'in' *)
while not eof(f) do
if eoln(f) then
begin
readln(f);
writeln
end
else
begin
read(f, c);
write(c)
end
end.