Pascal/Delphi Como embrulhar e restaurar textos?

[RattleHead]

Olá,

Tenho um exercício para terminar, mas não consigo concluir. Será que alguém pode me dar uma ajuda?

 

Program Pzim ;

var

    {vetor}
   
     str : array[0..511] of integer;

begin 

writeln('Digite um texto para embaralhar/restaurar (sem espaços): ');
    readln(str);

    {repetição}
    for i := 0; str[i] <> 0; i++
    begin 
        * pular := 1;

        {multipla escolha}
        case(str[i]) of
        begin 
                'A':
                str[i] := 'E';
                break;
                'E':
                str[i] := 'A';
                break;
                'I':
                str[i] := 'O';
                break;
                'O':
                str[i] := 'I';
                break;
                'U':
                str[i] := 'U';
                break;
            default:
                pular := 0;
                break;
         end;

        if(pular) then  continue;

        {condicional composta}
        if(str[i] >= '0' and str[i] <= '9') then 
        begin 
            str[i] := '9' - (str[i] - '0');
         end;
        else if(str[i] >= 'a' and str[i] <= 'z') then 
        begin 
            str[i] := 'a' + ((str[i] - 'a' + 13) mod 26);
         end;
     end;

writeln('Resultado é: ', str);
end;

end.

 

[devair1010]

@RattleHead      para que esse '*'  antes da variavel que nem foi criada ?  ,   e um array do tipo integer so vai receber numeros e não caracteres .     teria que ser do tipo string .