Имя матрицы и размеры N(10,10); для целочисленной матрицы найти для каждой строки число элементов, кратных 5, и наибольший из полученных результатов; условия и ограничения nij/5*5=nij — Pascal(Паскаль)

program ghf;

const
  kolN = 10;

var
  N, M: array [1 .. 500, 1 .. 500] of integer;
  i, j: integer;

function max5(i: integer): integer;
var
  j, nK, max: integer;
  K: array [1 .. 500] of integer;
begin
  nK := 0;
  for j := 1 to kolN do
    if N[i, j] mod 5 = 0 then
    begin
      inc(nK);
      K[nK] := N[i, j];
    end;
  max := K[1];
  for j := 2 to nK do
    if K[j] > max then
      max := K[j];
  max5 := max;
end;

function kolvo(i: integer): integer;
var
  j, rez: integer;
begin
  rez := 0;
  for j := 1 to kolN do
    if N[i, j] mod 5 = 0 then
      inc(rez);
  kolvo := rez;
end;

begin

  for i := 1 to kolN do
    for j := 1 to kolN do
    begin
      write('N[', i, ',', j, ']=');
      readln(N[i, j]);
    end;

  write('Vot vvedennyy vami massiv N:');
  for i := 1 to kolN do
  begin
    writeln;
    for j := 1 to kolN do
      write(N[i, j]:3, ' ');
  end;

  for i := 1 to kolN do
    if kolvo(i) > 0 then
    begin
      writeln;
      write('Kolvo elementov kratnix 5 v ', i, ' stroke: ', kolvo(i), '; MAX=',
        max5(i));
    end
    else
    begin
      writeln;
      write('Kolvo elementov kratnix 5 v ', i, ' stroke: ', kolvo(i), ';');
    end;

  readln;

end.