Tìm dãy con thỏa điều kiện trong pascal

Tìm dãy con thỏa điều kiện nào đó: Viết chương trình nhập vào mảng n số nguyên (n < 1000). Tìm dãy con đơn điệu giảm dài nhất (Dãy đơn điệu giảm là dãy chỉ gồm các phần tử giảm dần)

Chú ý: Bài toán có thể thay cách hỏi (tìm dãy giảm dài nhất, tìm dãy không tăng dài nhất, dãy các số âm (dương) dài nhất, …)

code 1

var i,l,j,k,luu,dem,max,n:integer;
kt:boolean;  a: array[1..100] 





 of integer;
f:text;
begin
assign(f,'day_con.inp');
reset(f);
readln(f,n);
for i:=1 to n do read(f,a[i] 








);
close(f);
{------------------}
max:=1;luu:=1;
for i:=1 to n-1 do
  for j:=i+1 to n do
  begin
    dem:=j-i+1; kt:=true;
    for k:=i to j-1 do
      if a[k] <=a[k+1] 








 then kt:=false;
    if kt and (max<dem) then
    begin
    max:=dem;
    luu:=i;
    end;
  end;
{----Mo file de ghi----}
    assign(f,'day_con.out'); rewrite(f);
for i:=luu to luu+max-1 do write(f,a[i] 

,' ');
close(f);
end.

code 2

var i,l,j,k,p,luu,dem,max,n:integer;
kt:boolean;  a: array[1..100] 





 of integer;
f:text;
begin
assign(f,'day_con.inp');
reset(f);
readln(f,n,k);
for i:=1 to n do read(f,a[i] 








);
close(f);
{------------------}
max:=1;luu:=1;
for i:=1 to n-1 do
  for j:=i+1 to n do
  begin
    dem:=j-i+1; kt:=true;
    for p:=i to j-1 do
      if ((a[p] mod k)<>0) or ((a[p+1] 








mod k)<>0) then kt:=false;
    if kt and (max<dem) then
    begin
    max:=dem;
    luu:=i;
    end;
  end;
{----Mo file de ghi----}
    assign(f,'day_con.out'); rewrite(f);
for i:=luu to luu+max-1 do write(f,a[i] 

,' ');
close(f);
end.