Решение к уроку 2.

PROGRAM naoborot;
var n,i:integer;
f,g:text;
a:array [1..20] of char;
begin
i:=1;
n:=0;
assign (f,'input.txt');
reset (f);
while not eof (f) do begin
        read (f, a[i]);
       i:=i+1;
       n:=n+1;
    end;
    close (f);
 
    assign (g,'output.txt');
    rewrite (g);
    for i:= n downto 1 do
    write (g,a[i]:3);
    close (g);
   
 
    end.