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

type
  mas = array [1..10, 1..10] of LongInt;
 
var
  i, j,k,min: integer;
  x,y: real;
  a,b: mas;
 
begin
  writeln('Исходная матрица:');
  for i := 1 to 10
  do 
  begin
    for j := 1 to 10
    do 
    begin
    x:=i;
    y:=j;
      A[i, j] := round(Power((x + y), y));{вот здесь когда доходит до второй строчки слитает}
      write(' A[', i, ',', j, ']= ', A[i, j],' ');
    end;
    writeln;
  end;
  for i := 1 to 10 
  do 
  begin
    for j := 1 to 10
    do 
    begin
      if (A[i, j] mod 5)=0
      then    {ищет элементы кратные 5}
      b[1,i]+=1;
      end;
      writeln('Для строки ',i,' элементов кратных 5 ',b[1,i]);
  end;
  min:=b[1,1];
  for i:=1 to 10
  do if b[1,i]>min {ищет в какой строчке число элементов макс.}
  then min:=b[1,i];
  writeln('Максимальное количество кратных 5 элементов ',min);
end.

type
  mas = array [1..10, 1..10] of int64;
 
var
  i, j: integer;
  max, k: integer;
  a: mas;
 
begin
  writeln('Исходная матрица:');
  for i := 1 to 10 do 
  begin
    for j := 1 to 10  do 
    begin
      A[i, j] := System.Convert.ToInt64(Power((i + j), j));
      write(' A[', i, ',', j, ']= ', A[i, j], ' ');
    end;
    writeln;
  end;
  
  max := 0;
  for i := 1 to 10 do 
  begin
    k := 0;
    
    for j := 1 to 10 do 
      if (A[i, j] mod 5) = 0 then k += 1; {ищет элементы кратные 5}
    
    writeln('Для строки ', i, ' элементов кратных 5 ', k);
    if k > max then max := k;
  end;
  writeln('Максимальное количество кратных 5 элементов = ', max);
end.

 if (A[i, j] mod 5) = 0 then k += 1; {ищет элементы кратные 5}

k:=k+1;