Дан массив целых чисел, произвести действия с его элементами в зависимости от того симметричен он или нет. - Turbo Pascal

const n=5;
var
  a: array [1..n] of Integer;
  i, j, m, s: Integer;
begin
  Write('Введите ',n,' чисел: ');
  for i:=1 to n do Read(a[i]); ReadLn;
  i:=n div 2; while (i>0) and (a[i]=a[n-i+1]) do Inc(i);
  if i=0 then begin
    i:=3; while i<=n do begin a[i]:=sqr(a[i-1]); Inc(i,3); end;
  end else begin
    m:=1; for i:=2 to n do if a[m]<a[i] then m:=i;
    for i:=1 to n do begin
      if Odd(a[i]) then s:=1 else s:=3;
      for j:=3 to Trunc(SqRt(a[i])) do
        if a[i] mod j=0 then s:=s+a[i] div j+j;
      if s=a[i] then Inc(a[i],m);
    end;
  end;
  Write('A''='); for i:=1 to n do Write(' ',a[i]); WriteLn;
end.