Помогите пожалуйста решить через функцию

[Neversmilе]

Заменить данное натуральное число на число, которое получается из ис¬ходного записью его цифр в обратном порядке (например, дало число 156, нужно получить 651).
Функция готовая есть, нужно полностью программу.. Вызвать функцию не умею, ибо не вник в тему..
Вот функция, если кому то надо:

function Chislo(N,M:longint;k:byte): longint;
begin
while N>0 do
   begin
      k:=N mod 10;
      M:=10*M+k;
     N:=N div 10;
   end;
Chislo:=M;
end;

Помогите пожалуйста написать ПОЛНУЮ программу с вызовом этой функции

[Stilet]

function Chislo(N:Integer): longint; var k:integer;
begin
k:=0;
while N>0 do
   begin
      k:=k*10;
      k:=k+(N mod 10); if k=0 then k:=1; 
      N:=N div 10;
   end;
Chislo:=k;
end;

var n:integer; begin readln(n); write('Исход=',n,' результ=',Chislo(n)); readln;end.

[Neversmilе]

спасибо *-*