Определите, сколько строк заданной матрицы  A(N, M)  содержат хотя бы один элемент из заданного числового диапазона — Pascal(Паскаль)

const m=3; n=4;
var a:array[1..n,1..m] of integer;
    i,j,p,q,k:integer;
    flag:boolean;
begin
     writeln('Введите p и q');
     read(p,q);
     for i:=1 to n do
         for j:=1 to m do
         begin
              writeln('Введите a[',i,j,']');
              read(a[i,j]);
         end;
     for i:=1 to n do
     begin
         flag:=false;
         for j:=1 to m do
             if (a[i,j]>=p) and (a[i,j]<=q) then flag:=true;
         if flag=true then inc(k);
     end;
     writeln(k,' строк содержат числа из [',p,',',q,']');
readln;
end.