Funcao Inverte Nome PASCAL

Program FuncaoInverteNome;
  function invert(nome:string): string;
    var
     i,tamanho: integer;
     novo: string;
    Begin
      novo:='';
     tamanho  := length(nome);
     for i  := tamanho downto 1 do
       novo :=  novo + nome[i];
    invert  := novo;

    end;
var
 nome: string;
 Begin
  Write('Informe Nome: ');
  readln(nome);
   Write(invert(nome));

 Writeln('                   by Marcus Vinicius');
 End.