Заменить каждый элемент матрицы, кратный К, нулем

for i:=1 to n do
for j:=1 to m do
if mas[i,j] mod k=0 then
mas[i,j]:=0;

uses
    crt;
var
   a:array[1..100,1..100] of integer;
   i,j,k,n,m:integer;
begin
     writeln('wvedite razmernost matrci ');
     readln(n,m);
     for i:= 1 to n do
         for j:= 1 to m do
             a[i,j]:=random(30)-5;
 
     for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
     writeln('wvedite k');
     readln(k);
for i:=1 to n do
for j:=1 to m do
if a[i,j] mod k =0 then
   a[i,j]:=0;
writeln;
writeln('shto vishlo');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
readkey
end.

for i:=1 to n do
for j:=1 to m do
if arr[i,j] mod k=0 then
arr[i,j]:=0;

program zzz;
 uses crt;
   const n=5;
         m=5;
 var
a:boolean;
ar:array[1..n,1..m] of integer;
i,y,k:integer;
begin
for i:=1 to n do begin
    for y:=1 to m do begin
        ar[i,y]:=random(10)+1;
        write(ar[i,y]:4);
    end;
writeln;
end;
 
        write('K=');readln(k);
       writeln('Îáðàáîòàííàÿ ìàòðèöà: ');
       for i:=1 to n do begin
           for y:=1 to m do begin
               if (ar[i,y] mod k)=0 then ar[i,y]:=0;
 
           write((ar[i,y]):4);
           end;
           writeln;
           end;
end.