Определить количество элементов матрицы, кратных заданному числу

const n=5;m=8;
type mas=array[1..n,1..m] of integer;
var a:mas;
    i,j,imax,imin,k1,k2:integer;
    max,min:integer;
procedure viv(x:mas;s:string);
var i,j:integer;
begin
 writeln(s);
 for i:=1 to n do
  begin
   for j:=1 to m do write(x[i,j]:4);
   writeln
  end 
end;
begin
 for i:=1 to n do
  for j:=1 to m do
   a[i,j]:=-50+random(101);
 viv(a,'A:');
 imin:=1;imax:=1;max:=a[1,1];min:=a[1,1];
 for i:=1 to n do
  for j:=1 to m do
   begin
    if a[i,j]>max then begin max:=a[i,j];imax:=i end;
    if a[i,j]<min then begin min:=a[i,j];imin:=i end
   end;
 writeln('максимальный: ',max,' в строке: ',imax);
 writeln('минимальный: ',min,' в строке: ',imin);
 k1:=0;k2:=0;  
 for i:=1 to n do
  for j:=1 to m do
   begin
    if a[i,j] mod imax=0 then inc(k1);
    if a[i,j] mod imin=0 then inc(k2);
   end;
 writeln('количество кратных ',imax,': ',k1);
 writeln('количество кратных ',imin,': ',k2);
 for j:=1 to m do 
  if a[1,j]<0 then a[1,j]:=k1
              else a[1,j]:=k2;
 write('Значением ',k1,' заменим отрицательные');
 write(', а значением ',k2,' – неотрицательные');
 writeln(' элементы первой строки.');
 viv(a,'A'':')
end.