Где ошибка, Определить номера тех строк массива, в которых есть хотя бы один элемент, больше 10

program prac3_zad5;
uses crt;
var x:array[1..100,1..100] of integer;
    N,M,st,sb,k:integer;
    pr:boolean;
begin
clrscr;
pr:=false;
writeln ('Введите число строк,столбцов: ');
read (st,sb);
writeln;
writeln ('Введите массив: ');
for N:=1 to st do
for M:=1 to sb do
begin
 write ('X[',N,M,'] = ');
 readln (X[N,M]);
end;
writeln;
for N:=1 to st do
pr:=false;
for M:=1 to sb do
if X[N,M]=10 then pr:=true;
if pr=true then writeln('В строке номер ',N,' есть 10!');
readkey;
end.

program prac3_zad5;
uses
  crt;
var
  x: array[1..100, 1..100] of integer;
  N, M, st, sb, k, q: integer;
  pr: boolean;
begin
  clrscr;
  write('Введите число строк,столбцов: ');
  read(st, sb);
  writeln;
  writeln('Введите массив: ');
  for N := 1 to st do
    for M := 1 to sb do
    begin
      write('X[', N,',', M, '] = ');
      readln(X[N, M]);
    end;
  writeln;
  q:=0;
  for N := 1 to st do
  begin
    pr := false;
    for M := 1 to sb do
      if X[N, M] > 10 then
      begin
        pr := true;
        inc(q);
      end;
    if pr = true then writeln('В строке номер ', N, ' есть элемент > 10!');
  end;
  if q=0 then writeln('Нет строк, с элементами > 10');
  readkey;
end.