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

program _array;
 
const
  
  N = 5;
  M = 5;
 
 
type
  
  TArray = array [1..N, 1..M] of real;
  TVector = array [1..N]      of real;
 
var
  
  Matrix: TArray;
  Vector: TVector;
  i: integer;
 
 
procedure FillMatrix(var a_Matrix: TArray; rnd: boolean; lb, rb: integer);
{    процедура заполнения матрицы из диапазона [lb,rb]
rnd = TRUE - случайными значениями ; rnd = FALSE - вручную}
var
  i, j, k: byte;
  function RandomReal(left, right: integer): real;
  {возвращает случайное вещественное число из диапазонa (left,right)                                                    }
  var
    x: real;
    sign: 0..1;
  begin
    if left < right then 
    begin
      if right <= 0 then 
        repeat
          x := -Random(Abs(left));
          x := x + random();
        until x <= right  
      else 
        repeat
          x := Random(right);
          sign := random(2);
          x := x + random();
          if sign > 0 then x := -x;
        until (x >= left) and (x <= right);
      RandomReal := x;
    end else RandomReal := 0;
  end;
 
begin
  case rnd of 
    FALSE:
      begin
        for i := 1 to N do 
          for j := 1 to M do 
          begin
            repeat
              write('[', i, ',', j, '] (', lb, '..', rb, '): ');
              readln(k);
              a_Matrix[i, j] := k;
            until (k > lb) and (k < rb);
          end;
      end;
    TRUE:
      begin
        for i := 1 to N do
          for j := 1 to M do a_Matrix[i, j] := RandomReal(lb, rb);
      end;
  end;
end;
 
procedure PrintMatrix(const a_Matrix: TArray);
{     процедура вывода матрицы на экран      
                                              }
var
  i, j: byte;
begin
  writeln;
  for i := 1 to N do 
  begin
    for j := 1 to M do 
      write(a_Matrix[i, j]:8:2);
    writeln;
  end;
  writeln;
end;
 
function GetMaxOnLine(const a_Matrix: TArray; line: integer): real;
{возвращает модуль максимальный элемент строки матрицы}
var
  i: integer;
  max: real;
begin
  max := abs(a_Matrix[line, 1]);
  for i := 1 to M do 
    if max < abs(a_Matrix[line, i]) then 
      max := a_Matrix[line, i];
  GetMaxOnLine := max;
end;
 
function GetMinOnLine(const a_Matrix: TArray; line: integer): real;
{возвращает модуль минимального элемент строки матрицы}
var
  i: integer;
  min: real;
begin
  min := abs(a_Matrix[line, 1]);
  for i := 1 to M do 
    if min > abs(a_Matrix[line, i]) then 
      min := a_Matrix[line, i];
  GetMinOnLine := min;
end;
 
var
  kotr, k0, kpol: integer;
  f: file of real;
  x: real;
 
begin
  { fill & print matrix }
  randomize;
  FillMatrix(Matrix, true, -100, 100); {false - если вручную}
  Writeln('Bсходная матрица: ');
  PrintMatrix(Matrix);
  
  {process & output }
  for i := 1 to N do 
    Vector[i] := GetMaxOnLine(Matrix, i) - GetMinOnLine(Matrix, i);
  assign(f, 'data.dat');
  rewrite(f);
  writeln('Cформирован вектор: ');
  for i := 1 to M do 
  begin
    Write(Vector[i]:8:2);
    Write(f, Vector[i]);
  end;
  writeln;
  writeln('Файл:');
  kotr := 0;
  k0 := 0;
  kpol := 0;
  reset(f);
  while not eof(f) do
  begin
    read(f, x);
    if x > 0 then
      inc(kpol)
    else
    if x <> 0 then
      inc(kotr)
    else
      inc(k0);
    Write(x:8:2);
  end;
  close(f);
  writeln;
  writeln('Количество отрицательных: ', kpol, ' положительных: ', kotr, ' нулевых: ', k0);
end.