подпрограмма, замена данного натурального числа Опции

[Светлана]

Здравствуйте! У меня вопрос по задачке...
Нужно заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке (напр., дано число 156, нужно получит 651).
Я делала через строку, у меня все запускалось, все было правильно.. но сказали переделать другим способом, так как мне даны числа, а не строка...

Program Perevernut;
function perevertysh (p:integer):integer;
 var S,a,a1,a2,a3:integer;
 begin
  write('Vvedite 3-x znachnoe chislo');
  readln(a);
  a1:=a mod 10;
  a:=a div 10;
  a2:=a mod 10;
  a3:=a div 10;
  S:=a1+a2+a3;
  writeln();
  readln
 end.

Я стала решать так.. но дальit до меня не доходит.. я понимаю, что надо сделать так, чтобы первое вставало на место последнего, второе - на место предпоследнего.. но как это сделать - не знаю. Помогите пож-та.