Найдите характеристику массива

//является палиндромом
function ispalindrom(x:integer):boolean;
var y,r:integer;
begin
y:=x;
r:=0;
while y>0 do
 begin
  r:=10*r+y mod 10;
  y:=y div 10;
 end;
ispalindrom:=r=x
end;
//является простым
function isprost(x:integer):boolean;
var i:integer;
    f:boolean;
begin
if x=2 then f:=true
else if (x=1)or(x mod 2=0) then f:=false
else
 begin
  f:=true;
  i:=3;
  while (i*i<=x)and f do
  if x mod i=0 then f:=false else inc(i,2);
 end;
isprost:=f;
end;
var a:array[1..100] of integer;
    n,i,mn,mx,s:integer;
begin
repeat
write('Введите размер массива от 10 до 100 n=');
readln(n);
until n in [10..100];
writeln('Введите элементы массива натуральные числа, в том чиле минимальные и простые или максимальные и палиндромы');
for i:=1 to n do
 begin
  write('a[',i,']=]');
  readln(a[i]);
  if i=1 then
   begin
    mn:=a[1];
    mx:=a[1];
   end
  else if a[i]<mn then mn:=a[i]
  else if a[i]>mx then mx:=a[i];
 end;
writeln('Массив');
for i:=1 to n do
write(a[i]:4);
writeln;
writeln('Реперные точки');
s:=0;
for i:=1 to n do
if ((a[i]=mx)and ispalindrom(a[i])) or((a[i]=mn)and isprost(a[i]))
then
 begin
  write(a[i]:4);
  s:=s+a[i];
 end;
if s=0 then writeln('реперных точек нет')
else
 begin
  writeln;
  writeln('Характеристика массива=',s)
 end;
end.

const N = 100;
 
type Arr = array [1..N] of integer;
 
function reversed(n: integer): integer;
var r: integer;
begin
    r := 0;
    while n > 0 do begin
        r := r * 10 + n mod 10;
        n := n div 10;
    end;
    reversed := r;
end;
 
function palindrome(n: integer): boolean;
begin
    palindrome := n = reversed(n);
end;
 
function prime(n: integer): boolean;
var i: integer;
begin
    if n < 2 then begin
        prime := false;
    end else if not odd(n) then begin
        prime := n = 2;
    end else begin
        prime := true;
        i := 3;
        while sqr(i) <= n do begin
            if n mod i = 0 then begin
                prime := false;
                break;
            end;
            i := i + 2;
        end;
    end;
end;
 
function reference(a: Arr; i: integer): integer;
begin
    if ((i = 1) or (a[i] < a[i-1])) and ((i = N) or (a[i] < a[i+1])) then begin
        reference := -1;
    end else if ((i = 1) or (a[i] > a[i-1])) and ((i = N) or (a[i] > a[i+1])) then begin
        reference := 1;
    end else begin
        reference := 0;
    end;
end;
 
var a: Arr;
var i, s, r: integer;
 
begin
    writeln('Array:');
    for i := 1 to N do begin
        a[i] := 2 + random(999);
        if (i mod 10 = 1) then write('a[', i:2, '..', (i + 9):3, ']:');
        write(a[i]:6);
        if (i mod 10 = 0) then writeln;
    end;
    writeln;
    s := 0;
    writeln('Reference points:');
    for i := 1 to N do begin
        r := reference(a, i);
        if ((r = 1) and palindrome(a[i])) or ((r = -1) and prime(a[i])) then begin
            writeln('a[', i, '] = ', a[i]);
            s := s + a[i];
        end;
    end;
    writeln;
    writeln('Characteristic = ', s);
end.