Дана целочисленная матрица. Найти для каждой строки количество элементов, кратных пяти и из полученных результатов выбрать наибольший. Вывести матрицу, количества и максимум.В Turbo Pascal

const n=5; m=6;var a:array[1..n,1..m] of integer;i,j,k,max:integer;beginRandomize;writeln('Исходный массив:');for i:=1 to n do begin for j:=1 to m do  begin   a[i,j]:=random(100);   write(a[i,j]:4);  end;  writeln; end;max:=0;for i:=1 to n do begin k:=0; for j:=1 to m do  if a[i,j] mod 5=0 then k:=k+1; writeln(i,': ',k); if k>max then max:=k; end;writeln('max = ',max);end.Пример:Исходный массив:  23   5  72   8  28  14  25  78  62  10  61  35  61  30  19  58  98  29  94  36  58  51  90  10  34  82  47  92  41  451: 12: 33: 14: 25: 1max = 3