Delphi Вектор массива

[Пьеро]

Не могу разобраться с с векторами в задаче
__________________________
Пусть дана матрица A(n x m)
Постройте вектор ,каждый элемент которого равен количеству элементов в соответствующей строке матрицы А,принадлежащих отрезку [a,b].
_________________________

Запутался вот тут
Код:

SetLength(v,RowCount);
 WriteLn('Vektor v:');
 for i := 0 to High(v) do
   begin
     j:=0;
     repeat
       Inc(j)
     until (j>High (A[i])) or (A[i,j] < A[i,j-1]);
     v[i]:=j>High (A[i]);
     Writeln(v[i]);

Вот полная задача 

_________________________
Код:

program Project3;

{$APPTYPE CONSOLE}
{$R+}

uses
  SysUtils;

type
  TMatrix = array of array of integer;
  TVector = array of Boolean;

  var
  c,b: Integer;
  A: TMatrix;
  V: TVector;
  RowCount,ColCount: Integer;
  i,j: Integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }
 Randomize;
 Write ('vvedite 4islo strok matrix A:');
 ReadLn (RowCount);
 Write ('Vvedite 4islo stolbcov matrix A:');
 ReadLn (ColCount);
 SetLength (A,RowCount,ColCount);
 WriteLn ('Matrix A:');
 For i:= 0 to High (A) do
 Begin
   For j:=0 to High(A[i]) do
   begin
     A[i,j] :=-10+Random(21);
     Write(A[i,j]:5);
    end;
    WriteLn;
 end;
 WriteLn('Vvedite granici otrezka [c,b]:');
 Write('c=');
 ReadLn(c);
 WriteLn('Vvedite granici otrezka [c,b]:');
 Write('b=');
 ReadLn(b);
 SetLength(v,RowCount);
 WriteLn('Vektor v:');
 for i := 0 to High(v) do
   begin
     j:=0;
     repeat
       Inc(j)
     until (j>High (A[i])) or (A[i,j] < A[i,j-1]);
     v[i]:=j>High (A[i]);
     Writeln(v[i]);
   end;
   ReadLN;
   end.
___________________________

Решить надо именно в этом виде....За ранее спасибо