Двумерный массив

[apetr]

В матрице нужно найти количество элементов кратных k и ниабольший из них.
И вот написал первые строки, а дальше как?

uses crt;
const a:array[1..5,1..5] of integer=((-3,1,0,4,1),(-2,4,5,3,1),(-1,-1,2,3,4),(5,3,3,5,2),(6,-2,4,2,3));
var k,p,i,j:integer;
begin clrscr;
write('Vvedite chislo k='); readln(k);
for i:=1 to 5 do
for j:=1 to 5 do
begin p:=0;
if a[i,j] mod k = 0 then

[puporev]

uses crt;
const a:array[1..5,1..5] of integer=((-5,1,0,4,1),
                                                 (-2,4,5,3,1),
                        		    (-1,-1,2,3,4),
				    (10,3,3,15,2),
				    (6,-2,4,2,3));
var k,i,j,p,max:integer;
begin
clrscr;
write('Vvedite chislo k='); readln(k);
p:=0;max:=a[1,1]; {начальное значение кол-ва=0, макс. эл-т=а[1,1]}
for i:=1 to 5 do
for j:=1 to 5 do
   begin
    if a[i,j] mod k = 0 then p:=p+1; {если кратный, считаем}
    if a[i,j]>max then max:=a[i,j];  {если больше всех максимальных, то максимальный}
   end;
writeln('Kolichestvo kratnyh 5=',p);
write('Maximalnyj iz nih=',max);
readln
end.

[alex_fcsm]

Как я понял нужно искать максимум тоже среди кратных

uses crt;
const a:array[1..5,1..5] of integer=((-5,1,17,4,1),
                                     (-2,4,5,3,1),
                        	    (-1,-1,2,3,4),
				    (33,3,3,15,2),
				    (6,-2,4,2,3));
var k,i,j,p,max:integer;

begin
clrscr;
write('Vvedite chislo k='); readln(k);
p:=0;max:=0;
for i:=1 to 5 do
for j:=1 to 5 do
    if a[i,j] mod k = 0 then begin
                                p:=p+1;
                                if a[i,j]>max then max:=a[i,j];
                             end;
writeln('Kolichestvo kratnyh ',k,' = ',p);
if p<>0 then write('Maximalnyj iz nih=',max);
readln
end.