cat writted in pascal

program cat;
{$mode objfpc}
var
  f : file of char;
  c : char;
begin
AssignFile(f, ParamStr(1));
Reset(f, 1);
while not eof(f) do
begin
      Read(f, c);
      write(c);
end;
CloseFile(f);
end.