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

[Светлана]

Здравствуйте! У меня вопрос по задачке...
Нужно заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке (напр., дано число 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 до меня не доходит.. я понимаю, что надо сделать так, чтобы первое вставало на место последнего, второе - на место предпоследнего.. но как это сделать - не знаю. Помогите пож-та.

[мисс_граффити]

она правильная, просто ты ее не переделала

Program Pereverni;
function perevertysh(x:longint):longint;
 var prev, T:longint;
  begin
   prev:=x;
   T:=0;
  while x<>0 do begin
   T:=T*10+(x mod 10);
   x:=x div 10;
  end;
   perevertysh:=t
   end;
  var x:integer;
   begin
   writeln('Vvedite chislo');
   write('-->');
   readln(x);
   write('Poluchili:',perevertysh(x));
   readln
   end. 

[Светлана]

она правильная, просто ты ее не переделала

Program Pereverni;
T:=T*10+(x mod 10);
x:=x div 10;
   

извините, что вот эти 2 строчки означают?

function perevertysh(x:integer):integer;
  var a:array[1..100] of integer;
      c,n,i,k:integer;
  begin
    n:=0; i:=1;  
    while x<>0 do begin
    c:=x mod 10; a[i]:=c;
    x:=x div 10;
    n:=n+1; i:=i+1;
    end;
     c:=0;
     for i:=1 to n do
     c:=c+a[i]*(exp(k*ln(10));{а вот умножать надо не на (n-(i-1), а на 10 в степени}
     perevertysh:=c;
     end; 

вот, у меня высвечивается: error 26 в той строчке, где с:=