Не могу найти наибольшую подпоследовательность последовательности

program Project4;
 
uses
  System.SysUtils;
var a, length, predecessor:array [1..50] of integer;
x, y, j, N, i : integer;
begin
randomize;
Write('Введите количество элементов, < 51 ');
readln(N);
write('Изначальная последовательность ');
  for i := 1 to N do
    length[i]:= 1;
  for i := 1 to N do begin
    a[i]:= random(11) - 3;
    write(a[i]:6);
  end;
  for i := 1 to N-1 do begin
    for j := i+1 to N-1 do begin
      if (a[j] < a[i]) and (length[i] + 1 > length[j]) then begin
        length[j] := length[i] + 1;
        predecessor[j] := i;
      end;
    end;
  end;
  Writeln;
  Writeln('Длина самой длинной подпоследовательности равна ');
  Writeln(length[N]);
  readln;
end.

var a:array[1..50] of integer;
    n,i,j,i1,k,mx:integer;
begin
repeat
write('Введите размер массива от 2 до 50 n=');
readln(n);
until n in [2..50];
writeln('Массив');
for i:=1 to n do
  begin
   a[i]:=-3+random(12);
   write(a[i]:4);
  end;
writeln;
mx:=1;
i:=2;
while i<n do
if a[i]<a[i-1] then
 begin
  k:=1;
  j:=i;
  while(j<=n)and(a[j]<a[j-1]) do
   begin
    inc(k);
    inc(j);
   end;
  if k>mx then
   begin
    mx:=k;
    i1:=i-1;
   end;
  i:=i+k;
 end
else inc(i);
if mx=1 then write('Нет убывыющей подпоследовательности')
else
 begin
  writeln('Максимальная длина убывающей подпоследовательности=',mx);
  for i:=i1 to i1+mx-1 do
  write(a[i]:4);
 end;
end.