Дан массив 7 на 7 Все эл-ты кратные 4 заменить на ноль. Вывести массив. Pascal

var a:array[1. . 7,1. . 7] of integer;

i,j: integer;

begin

for i:=1 to 7 do begin

for j:=1 to 7 do begin

a[i][j] := random(100);

write(a[i][j]:3, ' ');

end;

writeln();

end;

writeln();

for i:=1 to 7 do begin

for j:=1 to 7 do begin

if a[i][j] mod 4 = 0 then a[i][j] := 0;

write(a[i][j]:3, ' ');

end;

writeln();

end;

end.