Определить все элементы матрицы, кратные пяти

for i:=1 to n do
for j:=1 to n do
if a[i,j] mod 5=0 then 
inc(k);

var n:array[1..20,1..10] of integer;
    m:array[1..200] of integer;
    a,b,k,i,j,mx:integer;
begin
randomize;
repeat
write('Количество строк от 2 до 20 a=');
readln(a);
until a in [2..20];
repeat
write('Количество столбцов от 2 до 10 b=');
readln(b);
until b in [2..10];
k:=0;
writeln('Матрица');
for i:=1 to a do
 begin
  for j:=1 to b do
   begin
    n[i,j]:=5+random(31);
    write(n[i,j]:3);
    if n[i,j] mod 5=0 then
     begin
      k:=k+1;
      m[k]:=n[i,j];
     end;
   end;
  writeln;
 end;
if k=0 then write('Нет элементов, кратных 5')
else
 begin
  writeln('Массив');
  mx:=m[1];
  for i:=1 to k do
   begin
    write(m[i]:4);
    if m[i]>mx then mx:=m[i];
   end;
  writeln;
  write('Максимальный элемент=',mx);
 end;
end.