Определить номера строк в матрице, в которых элементов, принадлежащих отрезку[A, B], больше

const Nmass=10;
var x:array[1..Nmass,1..Nmass] of integer;
    N,M,i,j,k,p: byte;
    a,b,istI:integer;
 
begin 
 writeln(' Введите А и Б ');
 readln(a,b);
  
//ручной ввод массива
writeLn('Введите  число элементов в  массиве x');
readLn(N,M);
 writeLn('Вводим   элементы массива  x:');
  for i:=1 to N do
  for j:=1 to M do 
    begin
     write('x[',i,',',j,']=');
     readLn(x[i,j]);
    end;
 
//вывод массива до измененния
writeLn('Исходный  массив x:');
for i:=1 to N do 
 begin
for j:=1 to M do 
  write(x[i,j]:5);
  writeLn;
 end;
 
i:=1; k:=0; p:=0; 
//действия над массивом
  repeat 
    begin
      if (x[i,j]<=a) or (x[i,j]>=b) then k:=k+1;
      if (x[i,j]>=a) and (x[i,j]<=b) then p:=p+1;
      inc(i);
      if p>k then istI:=i;
    end
  until i<>N;
 
 
writeln('istI:',istI);
End.

const Nmass=10;
 var x:array[1..Nmass,1..Nmass] of integer;
 N,M,i,j,k,p: byte;
 a,b,istI:integer;
 
 begin
 writeln(' Введите А и Б ');
 readln(a,b);
 
 //ручной ввод массива
 writeLn('Введите число элементов в массиве x');
 readLn(N,M);
 writeLn('Вводим элементы массива x:');
 for i:=1 to N do
 for j:=1 to M do
 begin
 write('x[',i,',',j,']=');
 readLn(x[i,j]);
 end;
 
 //вывод массива до измененния
 writeLn('Исходный массив x:');
 for i:=1 to N do
 begin
 for j:=1 to M do
 write(x[i,j]:5);
 writeLn;
 end;
 
 i:=1; k:=0; p:=0;
 //действия над массивом
 writeLn('Номера строк, в которых чисел из диапазона [',a,',',b,'] больше');
 for i:=1 to N do
     begin
     k:=0; p:=0;
     for j:=1 to M do
         begin
         if (x[i,j]<=a) or (x[i,j]>=b) then k:=k+1;
         if (x[i,j]>=a) and (x[i,j]<=b) then p:=p+1;
         end;
     if p>k then writeln(i);
     end;
 End.