Programa Inverte String

program INVS;
{ TURBO PASCAL 7 SOURCE
  DELPHI SOURCE
  programa Inverte String
  Joao Paulo Schwarz Schuler}
{FPC Source Code}

{$X+}
{$F+}

const MEUNOME : string ='Pernalonga & Patolino';

var I:integer;
    TAMANHO:integer;
    S:string;
begin
S:='';
TAMANHO:=length(MEUNOME);
for I:=TAMANHO downto 1 do
    S:=S+MEUNOME[I];
writeln(S);
end.