найти для каждой строки число элементов,кратных 5

Для целочисленного двумерного массива найти для каждой строки число элементов,кратных 5,запишите информацию в одномерный массив и найдите наибольший из полученных результатов

const
   N = 10;
   M = 20;

var
   a: array [1..N, 1..M] of integer;
   b: array [1..N] of integer;
   
   i: integer;
   j: integer;
   sum: integer;
   max: integer;

begin
   {инициализируем массив случайными числами}
   for i:=1 to N do begin
      for j:=1 to M do begin
         a[i, j]:=random(100);
      end;
   end;
   
   {выведем его на экран}
   for i:=1 to N do begin
      for j:=1 to M do begin
         write(a[i, j]:3);
      end;
      writeln;
   end;
   writeln;
   
   sum:=0; {начальная инициализация суммы}
   write('кол-во элементов кратных пяти: ');
   for i:=1 to N do begin
      {находим кол-во элементов кратных 5}
      b[i]:=0;
      for j:=1 to M do begin
         if a[i, j] mod 5 = 0 then begin
             b[i]:=b[i]+1;
         end;
      end;
      write(b[i]:3); {вывод на экран}
   end;
   writeln;
   
   max:=b[1];
   for i:=2 to N do begin
      if b[i] > max then begin
         max:=b[i];
      end;
   end;
   
   writeln('максимальное из них = ', max);
end.

тут можно скачать оригинал