program Project2; {$APPTYPE CONSOLE} uses SysUtils; var f, g : text; t : array of char; i : integer; k : char; begin assign(f, 'input.txt'); reset(f); assign(g, 'output.txt'); rewrite(g); while not eof(f) do begin read(f, t[i]); inc(i); end; end.