Определить, есть ли в матрице строка, состоящая только из элементов, больших числа q - Free Pascal

const
  n = 10;
type
  range = 1 .. n;
  vector = array[range] of integer;
 
var
  a : array[range] of vector;
  v : vector;
  i, j, q : integer;
  b : boolean;
begin
  randomize;
  for i in range do for j in range do
    a[i, j] := random(25);
 
  for v in a do
  begin
    for i in v do write(i:3);
    writeln;
  end;
 
  write('q = '); readln(q);
 
  for i in range do
  begin
    b := true;
    for j in a[i] do b := b and (j > q);
    if b then writeln('line #', i);
  end;
end.