построить вектор по количеству элементов в i-й строке матрицы А (Delphi7 исправить ошибку)

[Анастасья]

program Project23;
{программа позволяет построить вектор,
каждый элемент которого равен количеству элементов в i-й строке матрици А
(nxn) не принадлежащих отрезку[0,10].}

{$APPTYPE CONSOLE}
 uses
  SysUtils,
  windows;

const
  n=5;low=0;high=10;
  type tstr=array[1..n] of real;
       matr= array[1..n] of tstr;
  var
   a:matr;s:real; i:integer;
   procedure read_matr( var mt:matr); {процедура вводит матрицу}
    var i,j : integer;
     begin
      for i:=1 to  n  do
        for j:= 1 to  n do
         read(mt[i,j]);
      readln;
     end;
   procedure prin_matr(var mt:matr); {процедура печатает матрицу}
     var i,j :integer;
      begin
       for i:= 1 to  n do
        begin
          for j:= 1 to  n do
            write(mt[i,j]);
          writeln;
        end;
      end;

   FUNCTION TEST(var s:tstr;a,b:integer):integer; {функция  проверяет принадлежит
    ли элемент в i-ой строке матрици А отрезку [0,10]}
      var count,i:integer;
       begin
          count:= 0;
          for i := 1 to n do
           if (s[i]< a) or (s[i]>b) then
            count:= count+ 1;
            test:= count;
       end;
   procedure Vvector (var vector:tstr); {процедура создает  искомый вектор}
     var i:integer;
       begin
         for i := 1 to n do
          read(vector[i]);
          readln;
       end;
begin
  for i:=1 to n do
   writeln('вектор' ,Vvector(?);{места где я торможу}
    for i:=1 to  n  do
     write( Vvector[?]:10); {и тут не хватает  параметров}
  readln
end.

[mss]

procedure Vvector (var vector:tstr); {процедура создает искомый вектор}

Ни разу не создает.
Заполняет она вектор, а не создает.
Создает ее тот кто вызывает эту процедуру.
А у тебя никто нигде этот вектор не создает.

[Анастасья]

Благодарю!!!)

[Анастасья]

но вот только что делать с непонятным куском?????