Fiz a função em delphi console, acredito que hoje em dia é linguagem mais didatica...
Coloquei comentário em cada linha do código para facilitar o entendimento, mas qualquer dúvida fico a disposição. :)
program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils , System.Types ;
var
_sFormat : string;
Function InverterAlgarismo ( prNumero : string) : string;
var
I : Integer;
_sAux : string;
begin
//Percorrer cada letra do número
//LENGTH pega a quantidade total de letras na string
for I := 0 to Length(prNumero) -1 do
begin
//Copy - Copio da string a ultima posicao menos a posicao atual do FOR
_sAux := _sAux + Copy(prNumero,Length(prNumero) - I ,1);
end;
result := _sAux;
end;
begin
write('Informe um número de 3 algorismo: ');
Readln(_sFormat);
//Mostra na tela o resultado
writeln('Número invertido: ' + InverterAlgarismo(_sFormat));
readln;
end.
