Ошибка времени выполнения: Индекс находился вне границ массива - PascalABC.NET (24809)

Формулировка задачи:

Помогите исправить ошибку в программе Program15.pas(33) : Ошибка времени выполнения: Индекс находился вне границ массива. 33 строка

program massiv10;
const N=5;
M=5;
var X:array [1..N, 1..M] of integer;
I, J,q,w:integer;
begin
randomize;
for i:=1 to N do
for j:=1 to M do
x [I, J]:=random (9)+1;
for i:=1 to N do
begin
for j:=1 to M do
write (' ',x[I,J]);
writeln
end;
    
   for j:=1 to n do
   i:=1;
  while (i<=m) do
  begin
    q:=0;  
   
    for j:=1 to n do
      if (x[i,j] mod 2<>0) then q:=q+1;
        writeln('В строке',i,': ',q,' не чётных элементов'); 
    i:=i+1; 
    
  end;
  begin
    w:=0;  
       for j:=1 to n do
      if (x[i,j] mod 2<>0) then w:=w+x[i,j];
        writeln('В строке',i,': ',w,' не чётных элементов'); 
    i:=i+1; 
    
end;
end.

Решение задачи: «Ошибка времени выполнения: Индекс находился вне границ массива»

textual
                            Листинг программы 
                        

                            program massiv10;
const N=5;
M=5;
var X:array [1..N, 1..M] of integer;
I, J,q,w:integer;
begin
randomize;
for i:=1 to N do
 begin
  for j:=1 to M do
   begin
    x [I, J]:=random (9)+1;
    write (' ',x[I,J]);
   end;
  writeln
 end;
for i:=1 to n do
 begin
  q:=0;
  w:=0;
  for j:=1 to n do
  if (x[i,j] mod 2<>0) then
   begin
    q:=q+1;
    w:=w+x[i,j];
   end;
  writeln('В строке',i,': ',q,' не чётных элементов');
  writeln('Их сумма=',w);
 end;
end.
                        