Найти все елементы матрицы, кратные четырём (4).

program zad4;
uses crt;
var
   a,b:array[1..100,1..100] of integer;
   i,j,n,m,k,z:integer;
begin
  clrscr;
  randomize;
  write('Размерность матрицы NxM: ');
  readln(n,m);
  writeln('Формирование матрицы...');
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      a[i,j]:=random(20)-9;
      write(a[i,j]:4);
      b[i,j]:=a[i,j];
     end;
    writeln;
   end;
  writeln;
  for i:=1 to n do
   begin
    z:=0;
    for j:=1 to m do
     if a[i,j] mod 4=0 then z:=z+1;
    if z>=2 then
     for j:=1 to m do
      b[i,j]:=88;
    k:=k+z;
   end;
  writeln('Колличество элементов кратные четырем: ',k);
  writeln;
  write('Исходная матрица:');readln;
  for i:=1 to n do
   begin
    for j:=1 to m do
      write(a[i,j]:4);
    writeln;
   end;
  write('Новая матрица: ');readln;
  for i:=1 to n do
   begin
    for j:=1 to m do
      write(b[i,j]:4);
    writeln;
   end;
end.