Задание по матрицам

[Иван 883]

Вычеркнуть из матрицы I-тые строки и J-тые столбцы, удовлетворяющие условию: I*J=Z (где Z задаваемый параметр от N до большего из N и M. Вот написал пограмму. Вот её код:
program lab10;
uses crt;
var
mas:array[1..15,1 ..15] of integer;
n,m,q,z,i,j:integer;

begin
clrscr;
randomize;
writeln('vvedite i-');
readln(n);
writeln('vvedite j-');
readln(m);
writeln('vvedite z-');
readln(z);
for I:=1 to N do
for J:=1 to M do
mas[i,j] := random(100);
for I:=1 to N do
for J:=1 to M do
if i*j=z then
begin
writeln('i-',i,' j-',j);
for q:=1 to n do mas[i,q]:=0;
for q:=1 to m do mas[q,j]:=0;
end;


for I:=1 to N do
begin
for J:=1 to M do
write(mas[i,j]:3, ' ');
writeln;
end;
readln;
end.

Но по какой то причине при просьбе ввести j программа это значение обнуляет, и матрицу не выводит вовсе, оставляя только место для неё. Помогите подредактировать прогу, а то я не знаю что делать. Заранее благодарен.

[Викдон]

вычеркнуть-т.е обнулить?

[Викдон]

program lab10;
uses crt;
var
mas:array[1..15,1 ..15] of integer;
n,m,q,z,i,j:integer;

begin
clrscr;
randomize;
writeln('vvedite i-');
readln(n);
writeln('vvedite j-');
readln(m);
writeln('vvedite z-');
readln(z);
for I:=1 to N do
for J:=1 to M do
mas[i,j] := random(100);
for I:=1 to N do
for J:=1 to M do
if i*j=z then
begin
writeln('i-',i,' j-',j);
for q:=1 to m do mas[i,q]:=0;
for q:=1 to n do mas[q,j]:=0;
end;


for I:=1 to N do
begin
for J:=1 to M do
write(mas[i,j]:3, ' ');
writeln;
end;
readln;
end.