procedure putfile(filename: string);
var
  s: string;
  f: textfile;
begin
  assignfile(f, filename);
  reset(f);
    while not (eof(f)) do
      begin
        readln(f,s);
        writeln(s);
      end;
  closefile(f);
end;