Двумерный массив. Заменить все элементы массива, кратные 7, на 0

Var A:array[1..100,1..100] of integer;
    i,j,n,m:integer;
Begin
    Randomize;
    write('Введите кол-во строк: ');readln(n);
    write('Введите кол-во столбцов: ');readln(m);
    For i:=1 to n do 
     Begin
      For j:=1 to m do
       Begin
        A[i,j]:=Random(30)-15;
        write(A[i,j]:4);
       End;
      writeln;
     End;
    writeln('Преобразовання матрица');
    For i:=1 to n do 
     Begin
      For j:=1 to m do 
       Begin
        if A[i,j] mod 7 = 0 then A[i,j]:=0;
        write(A[i,j]:4);
       End;
      writeln;
     End;
End.

program m1;
const e=10;
var m: array [1..e,1..e] of integer;
    a,b,k: integer;
begin
for a := 1 to e do begin
for b := 1 to e do begin
m[a,b] := Random(99)+1;
if m[a,b]>9 then write(m[a,b],' ') else write(m[a,b],'  ');
end;
writeln();
end;
writeln();
{---------------------------------------------------}
for a:=1 to e do
for b:=1 to e do
if m[a,b] mod 7 = 0 then m[a,b]:=0;
{---------------------------------------------------}
for a := 1 to e do begin
for b := 1 to e do
if m[a,b]>9 then write(m[a,b],' ') else write(m[a,b],'  ');
writeln();
end;
writeln();
end.