Выделите из массива максимальную цепочку послендовательных элементов, составляющих арифметическую прогрессию

program pr1;
uses crt;
 var x : array[1..99] of integer;i,n,s : integer;
 var z : array[1..99] of integer;
 BEGIN
 writeln('Ââåäèòå ðàçìåðíîñòü ìàññèâà');readln(n);
  for i:=1 to n do readln(x[i]);
   for i:=1 to n do
   begin
   s:=x[1];
   z[i]:=(x[i]-1)+2;
   z[1]:=s;
   end;
     writeln('Ìàññèâ');
    for I:= 1 to n do
    begin
     write(x[i],' ');
    end;
     writeln('Öåïî÷êà');
      for I:= 1 to n do
    begin
     write(z[i],' ');
    end;
     END.

const
  nmax=100;
type
  Tarr=array[1..nmax] of integer;
var
  a:Tarr;
  i,j,n,d,len,maxLen,startIndex:integer;
  f:boolean;
begin
  repeat
    write('Array size <= ',nmax,':');
    readln(n);
  until n in [1..nmax];
  writeln('Input array elements:');
  for i:=1 to n do
    begin
      write('[',i,']=');
      readln(a[i]);
    end;
  f:=false;
  i:=1;
  maxLen:=0;
  while i<=n-1 do
    begin
      d:=a[i+1]-a[i];
      len:=2;
      j:=i+1;
      while (j<=n-1) and (a[j+1]-a[j]=d) do
        begin
          inc(j);
          inc(len);
        end;
      if len<>2 then
        if not f then
          begin
            maxLen:=len;
            startIndex:=i;
            f:=true;
          end
        else if len>maxLen then
          begin
            maxLen:=len;
            startIndex:=i;
          end;
      i:=j;
    end;
  writeln('Array');
  for i:=1 to n do
    write(a[i]:4);
  writeln;
  if f then
    begin
      writeln('Max chain length=',maxLen,' start from index=',startIndex);
      for i:=startIndex to startIndex+maxLen-1 do
        write(a[i]:4);
    end
  else
    writeln('No chains found');
end.