Função Inverte String

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

{$X+}
{$F+}

function Inverte(S:String):string;
var R:string;
    I:integer;
    TAMANHO:integer;
begin
R:='';
TAMANHO:=length(S);
if TAMANHO>0
   then for I:=TAMANHO downto 1 do
            R:=R+S[I];
Inverte:=R;
end;

const MEUNOME : string ='Pernalonga & Patolino';

begin
writeln(Inverte(MEUNOME));
end.