В каждой строке матрицы найти количество элементов, кратных 5

type
matr=array[1..10,1..10] of integer;
mas=array[1..10] of integer;
var n,m:integer;
a:matr;
b:mas;
procedure vvod_matr(var a:matr;var n,m:integer);
var i,j:integer; isxdan:text;
 begin
 assign(isxdan,'isxdan.txt');
 reset(isxdan);
 readln(isxdan,n,m);
 for i:=1 to n do
  begin
  for j:=1 to m do read(isxdan,a[i,j]);
  readln(isxdan);
  end;
  close(isxdan);
  end;
  procedure Krat_5(a:matr;var b:mas;n,m:integer);
var i,j,k:integer;
begin
k:=0;
for i:=1 to 10 do
for j:=1 to 10 do 
if a[i,j] mod 5=0 then inc(k);
end;
procedure vivod_mas(b:mas;n:integer);
var i,j:integer; result:text;
 begin
 assign(result,'rez.txt');
 rewrite(result);
 for i:=1 to n do writeln(result,b[i]);
 close(result)
 end;
 begin 
  vvod_matr(a,n,m);
  Krat_5(a,b,n,m);
  vivod_mas(b,n);
  end.

type
  matr = array[1..10, 1..10] of integer;
  mas = array[1..10] of integer;
 
var
  n, m: integer;
  a: matr;
  b: mas;
 
procedure vvod_matr(var a: matr; var n, m: integer);
var
  i, j: integer;
  isxdan: text;
begin
  assign(isxdan, 'isxdan.txt');
  reset(isxdan);
  readln(isxdan, n);
  readln(isxdan, m);
  for i := 1 to n do
  begin
    for j := 1 to m do 
      read(isxdan, a[i, j]);
    //readln(isxdan);
  end;
  close(isxdan);
end;
 
procedure Krat_5(a: matr; var b: mas; n, m: integer);
var
  i, j, k: integer;
begin
  for i := 1 to n do
  begin
    k := 0;
    for j := 1 to m do 
      if a[i, j] mod 5 = 0 then 
        inc(k);
    b[i] := k;
  end;    
end;
 
procedure vivod_mas(b: mas; n: integer);
var
  i, j: integer;
  result: text;
begin
  assign(result, 'rez.txt');
  rewrite(result);
  for i := 1 to n do 
    writeln(result, b[i]);
  close(result)
end;
 
begin
  vvod_matr(a, n, m);
  Krat_5(a, b, n, m);
  vivod_mas(b, n);
end.

 b[i] := k;

write(b[i],' ');