Номера строк с определенными элементами

[Isit]

Помогите пожалуйста!!!
Определить номера строк в матрице, в которых элементов, принадлежащих отрезку[A,B], больше, чем элементов, принадлежащих отрезкам[-бесконечность,A],[B,+бесконечность].

[Isit]

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.

Вот попытки, но не работает. Помогите доделать что ли. Только надо к завтрашнему дню

[Mad_Cat]

istI:=0;
for i:=1 to n do begin
k:=0;p:=0;
for j:=1 to m do 
if (x[i,j]<=a) or (x[i,j]>=b) then k:=k+1 else p:=p+1;
if p>k then writeln(i);
end;