Nhập một mảng số nguyên gồm n phần tử.In kết quả ra màn hình các số palindrome (pascal)
Mình cần một chút hỗ trợ từ cộng đồng tuyệt vời này. Ai có thể giúp mình giải quyết vấn đề mình đang đối mặt với câu hỏi này không?

uses crt;

var a:array[1..100]of integer;

i,n,d,j,kt:integer;

st:string;

begin

clrscr;

write('n='); readln(n);

for i:=1 to n do 

 begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do 

  begin

str(a[i],st);

d:=length(st);

kt:=0;

for j:=1 to d do

if st[j]<>st[d-j+1] then kt:=1;

if kt=0 then write(st:4);

end;

readln;

end.