Поиск в массиве максимального симметричного числа

const n=10;m=maxint;
var a:array[1..n] of longint;
    i,l:integer;
    max:longint;
 
function palind(k:longint):boolean;
var i,j,c1,cn,m:longint;
    f:boolean;
begin
 i:=0;j:=0;m:=1;
 c1:=k;
 while c1>0 do
  begin
   c1:=c1 div 10;
   m:=m*10;
   inc(j)
  end;
 m:=m div 10;
 if k=0 then
         begin
          c1:=0;
          cn:=0
         end
        else
         begin
          c1:=k div m;
          cn:=k mod 10
         end;
 j:=j-2;
 while (c1=cn)and(k>100) do
  begin
   m:=m div 10;
   k:=(k div 10) mod m;
   m:=m div 10;
   c1:=k div m;
   cn:=k mod 10;
  end;
 if c1=cn then f:=true
           else f:=false;
 palind:=f
end;
 
begin
 randomize;
 for i:=1 to n do
  begin
   a[i]:=random(1000);{random(m)*random(m)}
   write(a[i],' ');
  end;
 writeln;
 writeln('*************');
 l:=0;
 for i:=1 to n do
 if palind(a[i])
  then
   if l=0
    then
     begin
      inc(l);
      max:=a[i]
     end
    else
     if a[i]>max then max:=a[i];
 if l=0 then writeln('no')
        else writeln(max);
 readln
end.