Числа палиндромы

[kaznachey1993]

заданная матрица nxm из целых чисел.Знайты количество и сумму всех чисел-полиндромив, находящимися в матрице.
Поставлю +3 из разных аков

[whatever]

function Polindrom(x:integer):boolean;
var
  S:string;
  i,j:integer;
begin
  S:=IntToStr(x);
  x:=(length(s))div(2);
  j:=length(S);
  result:=true;
    for i:=1 to x do
      begin
        if S[j]<>S[i] then
          begin
            result:=false;
            break;
          end
        else
          dec(j);
      end;
end;

Кстати, от "+3 из разных аков" никому не жарко и не холодно.