Делфи Массивы

[Пьеро]

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

Код:

program Project3;

{$APPTYPE CONSOLE}
{$R+}

uses
  SysUtils;

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

  var
  c,b,x: Integer;
  A: TMatrix;
  V: TVector;
  RowCount,ColCount: Integer;
  i,j: Integer;
  count:  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:');
 begin
 if (c>=x)and (b<=x) then
for i := 0 to High(A) do
    Count :=0;
  For j := 0 to High (A[i]) do
    Count :=0;
    end;
ReadLn;
end.
___________________________

Решить надо именно в этом виде....

Ошибка где то после строчки WriteLn('Vektor v:')...

За ранее спасибо за помощ