[Asira]

Вывести все натуральные числа из отрезка [M,N], сумма делителей которых равна сумме делителей числа, записанного теми же цифрами в обратном порядке. Использовать процедуру (функцию) нахождения суммы делителей числа.
Вот что у меня вышло

Код:

{$APPTYPE CONSOLE}

uses
  SysUtils;

Procedure del( k:integer;d:real);
      var i,p:integer;
      begin
      d:=K+1;
      p:=k div 2;
      for i:=2 to p  do
      if ((k mod i)=0) then d:=d+i;
      end;
  var k,m,n,i,s:integer;d,t:real;
begin
  writeln('k,m,n');
  readln(k,m,n);
  for i:=m to n do
  begin
  del(k,d);
  del(i,t);
  if d=t then write(i,' ');
  end;
  readln;
end.

Не могу выполнить вот это условие -"записанного теми же цифрами в обратном порядке."