Составить программу поиска в массиве максимального числа, являющегося симметричным в десятичной записи

[Pavlgd]

Помогите составить программу

[Aleksandr H.]

uses crt;
const n = 8;
type tMas=array[1..n] of integer;
const A:tMas=(1,55,31200,676,4884,30503,31412,29692);
var i,k,max :integer; s:string; code:integer; elem:integer;

function IsPalidrom(txt:string):boolean;
var i:byte;f:boolean;
begin
     f:=false;
    for i:=1 to length(txt) div 2 do
     begin
       if txt[i] = txt[length(txt)-i+1] then f := true else break
     end;
    IsPalidrom := f;
end;

begin
  clrscr;
   max:=0;k:=0;
  for i:=1 to n do
   begin
   writeln(a[i]);
   str(a[i],s);
   if IsPalidrom(s) then
      begin
           val(s,elem,code);
           if elem > max then begin k:=i; max:=elem end
      end;
   end;
   if k = 0 then writeln('HALT') else writeln(max,'.i=',k);
   readln;
end.