Для каждого столбца массива найти среднее арифметическое элементов

for i:=0 to n-1 do begin
     for j:=0 to m-1 do begin 
       if (a[i,j] mod 10<>0) then
       if (a[i,j] mod (a[i,j] mod 10)=0) then begin
         a[0,j]:=a[0,j]+1;
         a[n+1,j]:=a[n+1,j]+a[i,j];
       end; end;

begin
  var Rows := ReadLnInteger('  Строк массива: Rows =');
  var Cols := ReadLnInteger('Колонок массива: Cols =');
  var a : array [,] of Integer;
  SetLength(a, Rows, Cols);
  
  Randomize;
  var S : String := '';
  for var Row := 0 to Pred(Rows) do
    begin
      S += NewLine;
      for var Col := 0 to Pred(Cols) do
        begin
          a[Row, Col] := Random(-99, +99);
          S += String.Format('{0,4}', a[Row, Col]);
        end;
    end;
  WriteLn('Массив:', S);
  
  S := '';
  for var Col := 0 to Pred(Cols) do
    begin
      var Sum := 0; var Count := 0;
      for var Row := 0 to Pred(Rows) do
        if (a[Row, Col] mod 10 <> 0) and (a[Row, Col] mod (a[Row, Col] mod 10) = 0) then
          begin
            Sum += a[Row, Col]; Count += 1;
          end;
      S += String.Format('{2}{0,4} столбца = {1:f5}', Succ(Col), Count > 0 ? Sum / Count : 0, NewLine);
    end;
  WriteLn('Среднее арифметическое элементов столбцов, которые делятся без остатка на свою последнюю цифру:', S);
end.