Определить наибольшую и наименьшую из длин рассматриваемых отрезков

[INLINE]Program q;
type b=array[1..100] of integer;
var a:b;
    n,m,k1:integer;
procedure nat(var n1:integer);
begin
     repeat  
     readln(n1);
     if n1<=0 then writeln('Число ненатуральное.');
     until n1>=1;
end;
procedure massiv(n2:integer; var a:b);
var i: integer;
begin  
     for i := 1 to n2 do 
                       begin
                            write('A[', i, ']=');
                            read(a[i]);
                       end;
end;
procedure mass(n2:integer; a:b);
var i: integer;
begin
     writeln('Массив A: ');
     for i := 1 to n2 do 
                       write(a[i], ' ');
                       writeln;
end;
procedure del(a:b; var k:integer);
var i,m,y: integer;
begin
     k:=0;
     for y:=2 to a[i] div 2 do
                              if a[i] mod y=0 then k:=k+1;
end;
begin 
nat(n);
nat(m);
massiv(n,a);
mass(n,a);
end.[/INLINE]

var
  a, b : array [1..100] of Integer;
  n, m, i, d, L, Lmin, Lmax : Integer;
begin
  Write('n = ');ReadLn(n);
  for i := 1 to n do
    begin
      Write('a[',i,'] = ');ReadLn(a[i]);
      b[i] := 0; for d := 1 to a[i] do if a[i] mod d = 0 then inc(b[i]);
    end;
  for i := 1 to n do Write(' ',b[i]);WriteLn;
  Write('m = ');ReadLn(m);
  for i := 1 to n do if b[i] <= m then b[i] := 0;
  for i := 1 to n do Write(' ',b[i]);WriteLn;
  Lmin := 0; Lmax := 0;
  for i := 1 to n do
    if b[i] > 0 then inc(L)
    else if L > 0 then
      begin
        if (Lmin = 0) or (Lmin > L) then Lmin := L;
        if (Lmax = 0) or (Lmax < L) then Lmax := L;
      end;
  if L > 0 then
    begin
      if (Lmin = 0) or (Lmin > L) then Lmin := L;
      if (Lmax = 0) or (Lmax < L) then Lmax := L;
      L := 0;
    end;
  WriteLn('Lmin = ', Lmin);
  WriteLn('Lmax = ', Lmax);
end.