Найдите суммы положительных кратных 5 элементов каждого столбца матрицы

{uses SysUtils} //Раскоментируй это, если у тебя не PascalABC.NET
 
const 
  n = 4;
  m = 5;    
 
type
  int = integer;
  uint = byte;
  long = longint;
  arr = array of int;
  longdata_arr = array of long;
  matrix = array of arr;
  
var
  m:matrix;
  b:longdata_arr;
  i, j:uint;
  
begin
  {writeln('Введите количество строк и столбцов матрицы:');
  read(i, j);}
  SetLength(m, n{i});
  SetLength(b, m{i});
  for i:= low(b) to high(b) do
    b[i]:= 0;
  writeln('Введите матрицу:');
  for i:= low(m) to high(m) do
  begin
    SetLength(m[i], Length(b));
    for j:= low(m[i]) to high(m[i]) do
      read(m[i, j]);
  end;
  for j:= low(m[low(m)]) to high(m[low(m)]) do
    for i:= low(m) to high(m) do
      if ((m[i, j] > 0) and (m[i, j] mod 5 = 0)) then
        b[j]:= b[j] + m[i, j];
  writeln('Суммы положительных кратных 5 по столбцам:');
  for i:= low(b) to high(b) do
    write(b[i], ' ');
end.

{uses SysUtils} //Раскоментируй это, если у тебя не PascalABC.NET
 
const 
  n = 6;
  m_ = 6;    
 
type
  int = integer;
  uint = byte;
  long = longint;
  r = record
        value:long;
        flag:boolean;
      end;
  arr = array of int;
  longdata_arr = array of r;
  matrix = array of arr;
 
var
  m:matrix;
  b:longdata_arr;
  i, j:uint;
  sum, min:long;
  
begin
  {writeln('Введите количество строк и столбцов матрицы:');
  read(i, j);}
  SetLength(m, n{i});
  SetLength(b, n{i});
  for i:= low(b) to high(b) do
    with b[i] do
    begin
      value:= 0;
      flag:= false;      
    end;
  writeln('Введите матрицу:');
  sum:= 0;
  for i:= low(m) to high(m) do
  begin
    SetLength(m[i], m_);
    min:= integer.MaxValue;
    for j:= low(m[i]) to high(m[i]) do
    begin
      read(m[i, j]);
      if ((i = j) and (m[i, j] > 0)) then
        sum:= sum + m[i, j];
      if ((m[i, j] mod 3 = 0) and (m[i, j] < min)) then
      begin
        min:= m[i, j];
        b[i].flag:= true;
      end;
    end;
    b[i].value:= min;
  end;
  writeln('Разности по строкам ("-" значит, что в строке не было элемента, кратного 3):'); 
  for i:= low(b) to high(b) do
    if (b[i].flag) then
      write(sum - b[i].value, ' ')
    else
      write('- ');
end.