Pascal/Turbo Pascal - Construir función que reciba un word y devuelva su

A ver, tengo una duda con respecto a un examen que he visto colgado en una página de Internet, es un examen de una universidad qué ahora no recuerdo. El problema a resolver sería: "Invierte las cifras de un número. Por ejemplo: f(123) = 321. Construye una función que reciba un Word y devuelva su imagen en otro Word."

No se me ocurre cómo hacerlo y estoy estudiando para Septiembre, alguien me podría ayudar a resolverlo?

Gracias.

function DarVuelta(A: Word): Word;
var
i,c:byte;
s: string;
l: longint;
r: Word;
begin
DarVuelta:=0;
Str(s,A);
for i:=length(s) downto 1 do
begin
t:=t+s[i];
end; { for }
Val(t,l,c);
if l > 65535 then
Write('No se puede dar vuelta al número.')
else
begin
Val(t,r,c);
DarVuelta:=r;
end;
end;

Hecho.

Muchas gracias "Diego Romero"!!

Lo probaré y seguro que me servirá de mucho.