Помогите найти ошибку в коде, пожалуйста

[Gobl1n]

Разработать процедуру, которая формирует число палиндром из целого числа, используя алгоритм:
1) Если это число не палиндром - то изменить порядок цифр на обратный и сложить исходное число с получившимся
2) Если сумма не палиндром - то повторим действия до получения числа палиндрома
Примечание: Результатом процедуры является число палиндром и кол-во применений алгоритма для его получения

Кое-как сам составил код, но почему-то не работает (((((

procedure pal(n:integer; var k:integer);
var x,y,t:integer;
begin
y:=0;
t:=0;
x:= n mod 10;
while n mod 10 <>0 do
begin
t:=x;
x:=n mod 10;
y:=x*10+x;
end;
y:=y+t;
k:=y;
end;


var
a,b,c,d,i:integer;
begin
writeln(' Vvedite a= '); readln(a);
pal(a,b);
c:=0;
d:=1;
i:=0;
while (a<>b) and (c<>d) do
begin
pal(a,b);
c:=a+b;
i:=i+1;
pal(c,d);
end;
writeln(c);
writeln(i);
readln;
end.



исправьте пожалуйста

[SunKnight]

while n mod 10 <>0 do
begin
t:=x;
x:=n mod 10;
y:=x*10+x;
end;

это бесконечный цыкл, походу там еще много багов

[puporev]

То что Вы написали, это не код, это бессмысленный набор символов. Прежде всего надо обдумать задачу, набросать ее на бумаге, разобраться что к чему, а потом писать. Если Вы не усвоили смысл задачи, последнее делать не нужно.
Вот вариант решения.

uses crt;

procedure CrPal(x:longint; var z:longint; var q:byte); //собственно процедура
function Palindrom(a:Longint):boolean; //функция определения палиндрома
var a1,s:longint;
    k:byte;
begin
a1:=a;s:=0;//запоминаем исходное число, поскольку мы его уничтожим
while a>0 do //пока число больше 0
  begin
   k:=a mod 10; //отделяем последнюю цифру
   s:=10*s+k; //прибавляем ее к сумме
   a:=a div 10;//берем число без последней цифры и все повторяем
  end;
if s=a1 then Palindrom:=true //если полученное число=исходному
else Palindrom:=false;
end;
function Revers(a:longint):longint; 
//функия обращения числа, то же самое, только не сравниваем
var s:longint;
    k:byte;
begin
s:=0;
while a>0 do
  begin
   k:=a mod 10;
   s:=10*s+k;
   a:=a div 10;
  end;
Revers:=s;
end;
begin   //выполнение самой процедуры 
if Palindrom(x) then 
  begin
   write('Vvedeno chiso palindrom!');
   readln;
   halt; //если введен палиндром, заканчиваем
  end
else
  begin
   q:=0;z:=x; //счетчик=0, запоминаем исходное число
   repeat
    inc(q); //увеличиваем счетчик
    z:=z+Revers(z); //складываем число со своим отображением
   until Palindrom(z); //если получаем палиндром, заканчиваем
   writeln('Rezultat=',z);
   write('Kolichestvo primenenij=',q);
  end;
end;

var n,n1:longint;//раздел переменных основной программы
    kp:byte;
begin  //начало программы
clrscr;
write('n=');readln(n);
CrPal(n,n1,kp);
readln
end.

[Gobl1n]

Спасибо большое! смысл-то я понял, просто умения программировать пока мало ) еще раз спасибо