по delphi7 процедуры и функции

[Анастасья]

пусть дана матрица A(nxn)постройте вектор,каждый элемент которого равен количеству элементов в i-й строке матрицы А, не принадлежащий отрезку[0.10]воспользуйтесь функцией, делающей соответствующую проверку в i-q cтроке.....

[Hacker19_90]

var
    a: array[1..n,1..n] of integer;
    b: array[1..n] of integer;
//где- то в программе
for i := 1 to n do
begin
    b[i] := 0;
    for j := 1 to n do
    begin
         if not(a[i] in [0..10]) then Inc(b[i]);
    end;
end;

[Анастасья]

чего то тут не так....(