Найти отрезок массива максимальной длины, в котором первое число равно последнему, второе предпоследнему и т.д.

program pidposlidovnist;
type
mas=array[1..100] of integer;
 
procedure readmas(n:integer; var a:mas);
var
i:integer;
begin
for i:=1 to n do
read(a[i]);
end;
 
function pall (i,j:integer; a:mas):boolean;
var
k,m,t:integer;
begin
pall:=true;
m:=j-i+1 div 2;
t:=0;
for k:=1 to m do begin
 if a[i+t]<>a[j-t] then begin
 pall:=false;
 exit;
 end;
inc(t);
end;
 
end;
 
procedure sub(n:integer; a:mas; var k:integer);
var
i,max,j,pos1,pos2:integer;
begin
max:=0;pos1:=0;pos2:=0;
for i:=1 to n-1  do
for j:=i+1 to n  do
if pall(i,j,a) then
if j-i+1>max then begin
max:=j-i+1;
pos1:=i;pos2:=j;
end;
 
if pos2-pos1+1=max then begin
writeln('Longest Palindrom :');
for i:=pos1 to pos2 do
write(a[i],' ');
writeln;
end;
 
k:=max;
end;
 
var a:mas;
    n,k:integer;
 
BEGIN
write('n=');
read(n);
readmas(n,a);
sub(n,a,k);
writeln('His length = ',k);
END.

program pidposlidovnist;
type
mas=array[1..100] of integer;
var a:mas;
    n,k,m,i,j,t,pos1,pos2,max:integer;
    pall:boolean;
    
 
BEGIN
write('n=');
read(n);
for i:=1 to n do
read(a[i]);
 
 
max:=0;
for i:=1 to n-1  do
for j:=i+1 to n  do begin
pall:=true;m:=j-i+1 div 2;t:=0;
for k:=1 to m do begin
if a[i+t]<>a[j-t] then begin
pall:=false;
break;
end;
inc(t);
end;
 
if (pall) and (j-i+1>max) then begin
max:=j-i+1;
pos1:=i;pos2:=j;
end;
 
end;
 
 
if pos2-pos1+1=max then begin
writeln('Longest Palindrom :');
for i:=pos1 to pos2 do
write(a[i],' ');
writeln;
end;
 
writeln('His length = ',max);
END.