Вывести список симметричных нечётных чисел (например, 34543 или 70507) в 5 колонок — Pascal(Паскаль)

uses crt;
function Palindrom(n:longint):boolean;
var m,p:longint;
    i,k:integer;
    begin
m:=n;
p:=0;
while m>0 do
  begin
    i:=m mod 10;
    p:=p*10+i;
    m:=m div 10;
  end;
Palindrom:=p=n
end;
var i,j,k:longint;
begin
clrscr;
k:=0;
j:=1;
for i:=10001 to 32450 do
if odd(i)and Palindrom(i) then
 begin
  k:=k+1;
  gotoXY(j,k);
  write(i:6);
  if k=25 then
   begin
    j:=j+7;
    k:=0;
   end;
 end;
readln
end.