Pascal/Turbo Pascal - urgente! invertir un numero de 4 cifras en pascal

tengo una tarea muy urgente por fa como invierto un numero de 4 cifras para el programa free pascal.envienme el algoritmo porfa

{Es esto lo que pides}

program invertir;
uses
crt;
var
n : longint;
dato : string[4];


procedure entrada;
var
i : integer;
begin
gotoxy(4,4);write('Entre Numero 4 Cifras : ');
gotoxy(28,4);readln(n);
str(n,dato);
for i := length(dato) downto 1 do
write(dato[i]);
end;

begin
clrscr;
entrada;
readln;
end.