begin
  foreach var s in ReadLines('13_Files4.pas') do
    writeln(s);
end.