Описать Функцию Палиндром для целого числа

[glebast]

Привет ребята!
У меня тут задачка есть, не могу справиться, буду очень благодарен кто поможет!

Описать функцию ispalindrom(k), возвращающую true, если целый
параметр k (>0) является палиндромом (т.е. его запись читается одинаково
слева направо и справа на лево), и false в противном случае.
С ее помощью найти количество палиндромов в наборе из 10 целых положительных чисел.

[McFrey]

Наработки ваши есть?

[McFrey]

разбирайтесь,тут все довольно прозрачно...

program Proc31;

function IsPalindrome(cur: integer): boolean;
var
  base, rev: integer;
begin
  base := cur;
  rev := 0;
  while (cur > 0) do
  begin
    rev := rev * 10 + cur mod 10;
    cur := cur div 10;
  end;
  if (base = rev) then
    IsPalindrome := true
  else
    IsPalindrome := false;
end;

var
  k: integer;
  i: integer;
  Count: integer;

begin
  Count := 0;
  for i := 1 to 10 do 
  begin
    write('введите число:');readln(K);
    if (IsPalindrome(k) = True) then
    begin
      Count := Count + 1;
    end;
  end;
  writeln(Count);
end.