Прогрессия. Программа работает неправильно - Turbo Pascal - Ответ 3931560

program ghya;
uses wincrt;
Const
 Nm=100;
 var     a,b :array [1..nm] of integer;
           N,i,j:Byte;
        t,max,ind,jch :integer;
Begin
 Write('N= ');
 Readln(N);
for j:=1 to n-i do begin
                write('a[',j,'] = ');
                readln(a[j]);
        end;
 
 
 
 writeln;
        for i:=1 to n-1 do
                for j:=1 to n-i do
                        if a[j]>a[j+1] then begin
                                t:=a[j];
                                a[j]:=a[j+1];
                                a[j+1]:=t;
                        end;
  j:=1;
        for i:=1 to n-1 do begin
                b[i]:=a[i+1]-a[i];
        end;
 
        for i:=1 to n do
                if b[i]=0 then continue
                else begin
                    j:=1;
                    while j<n do begin
                        t:=0;
                        if b[i]=b[j] then begin
                                while (b[i]=b[j]) and (j<n) do begin
                                        Inc(t);
                                        Inc(j);
                                end;
                                if t>max then begin
                                        max:=t;
                                        ind:=j;
                                end;
                        end else Inc(j);
                    end;
                end;
 
        if max<=1 then writeln('')
        else begin
                for i:=ind-max to ind do
                        write(a[i]:3);
        end;
        readln;
END.