Паскаль.Определение числа палиндрома

[uropb992]

С клавиатуры пользователь вводит 10чисел, какие из этих чисел являются палиндромами(напр число 12421) Определение числа палиндрома оформить в виде функции

[Chudo4258]

function pol(n:integer):boolean;
var s,k:integer;
begin
 k:=n;
 s:=0;
 while k<>0 do
  begin
   s:=s*10+(k mod 10);
   k:=k div 10;
  end;
 pol:=(n=s);
end;
var i,n:integer;
begin
for i:=1 to 10 do
begin
 readln(n);
 writeln(pol(n));
end;
end.

[blondino4ka_milk]

у меня не получается в виде процедуры оформить! =(

[Пепел Феникса]

так вам дали готовое уже

[blondino4ka_milk]

Пепел Феникса
Оформить в виде процедуры без function

[Chudo4258]

вместо

function pol(n:integer):boolean;

написать

procedure pol(n:integer; var p:boolean);

и заменить

pol:=(n=s);

на

p:=(n=s);

[blondino4ka_milk]

Спасибо большое Вам!
//основная программа

var i,n:integer; p:boolean;
begin
for i:=1 to 10 do
begin
 readln(n);
 pol(n,p);
 writeln(p);
end;
end.