Pascal/Turbo Pascal - Invertir un numero kpl

Necesito invertir un numero. Ejemplo: 123 a 321 pero en formato kpl, porque nosotros estamos trabajando con phrogram...porfa ayudenme...Gracias

{De veras de convertirlo a tu sistema no te sera difícil}

program invetnumero;
uses
crt;
var
numero, num2, error, i : integer;
inv, inver : string[12];

procedure inversion(nu : integer); {Invertir el Numero Entrado}
var
long : integer;
begin
writeln('Numero Entrado');
writeln(' ',nu);
writeln;
str(nu, inver); {Convertimos el numero a caracteres}
long := length(inver); {Comprovamos Longitud}
writeln('Numero Invertido');
for i := 1 to long do {}
begin {}
inv[i] := inver[(long + 1) - i]; {Invertimos el Numero}
inv[0] := chr(i); {}
end; {}
val(inv, num2, error); {Convertimos a Numero Invertido}
writeln(' ',num2);
end;

begin
clrscr;
writeln('Entre Numero [0] Por Defecto 123');
readln(numero);
if numero = 0 then
numero := 123;
inversion(numero); {El numero Entrado}
readln;
end.