Функция или процедура

var
  F: array[1..10, 1..10] of integer;
  k, l: integer;
  i, j: byte;
 
begin
  writeln('Матрица F:');
  randomize;
  for i := 1 to 10 do
  begin
    write('[');
    for j := 1 to 10 do
    begin
      F[i, j] := random(10) - 5;
      write(F[i, j]:5, ' ');
    end;
    write(']');
    writeln;
  end;
  
  begin
    for j := 1 to 10 do
    begin
      l := 0;
      for i := 1 to 10 do
        if f[i, j] <> 0 then
        begin
          l := l + 1;
        end;
      writeln(' Количество ненулевых - ', l)
    end;
  end;
  
  
  begin
    for i := 1 to 10 do
    begin
      k := f[i, 1];
      for j := 1 to 10 do
        if f[i, j] < k then
          k := f[i, j];
      write('[');
      for j := 1 to 10 do
      begin
        f[i, j] := f[i, j] - k;
        write(f[i, j]:4, ' ');
      end;
      write(']');
      writeln;
    end;
  end;  
end.

function gen:=MatrRandomInteger(10,10,-5,5);
procedure outNotZerosInColumns(f:array [,] of Integer):=f.Cols.Select(c->' Количество ненулевых - '+c.Count(v->v<>0)).PrintLines;
function convertRows(f:array [,] of Integer):array [,] of Integer;
begin
  Result:=New integer[f.RowCount,f.ColCount];
  for var row:=0 to f.RowCount-1 do
    begin
      var x:=f.Row(row).min;
      for var col:=0 to f.ColCount-1 do
        Result[row,col]:=f[row,col]-x;
    end;
end;
begin
  var f := gen;
  'Матрица F:'.Println;f.Println;
  outNotZerosInColumns(f);
  convertRows(f).Println;
end.