Определить есть ли в данном массиве строка состоящая только из элементов, принадлежащих промежутку от А до B - Pascal

var ar:array[1..20,1..20] of integer;
    m,n,i,j,a,b,k:integer;
begin
repeat
write('Введите количество строк от 2 до 20 m=');
readln(m);
until m in [2..20];
repeat
write('Введите количество столбцов от 2 до 20 n=');
readln(n);
until n in [2..20];
randomize;
writeln('Массив');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    ar[i,j]:=10+random(90);
    write(ar[i,j]:3);
   end;
  writeln;
 end;
 repeat
 writeln('Введите диапазон чисел a<b');
 readln(a,b);
 until a<b ;
 i:=1;
 k:=0;
 while(i<=m) and(k=0) do
  begin
   j:=1;
   while (j<=n)and(k=0) do
   if (ar[i,j]>=a)and(ar[i,j]<=b) then k:=1
   else inc(j);
   if k=0 then inc(i);
  end;
 if k=1 then write('Есть строка, все элементы которой принадлежат промежутку [',a,',',b,']')
 else write('Нет строки, все элементы которой принадлежат промежутку [',a,',',b,']')
 end.