Inverte Nome PASCAL

Program InverteNome ;
var
 tamanho,i: integer;
 nome,invertido: string;
 Begin
  Write('Informe Nome: ')   ;
  readln(nome);
  WriteLn;
    tamanho := length(nome);
     for i := tamanho downto 1 do
      begin
       Write(nome[i]);
       delay(300);
      end;

  Writeln('                        by  Marcus Vinicius')     ;
 End.