Разделить элементы каждой строки матрицы на максимальный элемент этой строки (с использованием подпрограмм)

program zad;
 
type
  TLine = Array of Real;
  TMass = Array Of TLine;
  
procedure FillArray(var mass : TMass);
var
  i, j, m, n : Byte;
begin
  Write('Input m='); ReadLn(m);
  Write('Input n='); ReadLn(n);
  SetLength(mass, m);
  for i := 0 to m-1 do
  begin
    SetLength(mass[i], n);
    for j := 0 to n-1 do
      mass[i, j] := Random(51) - 25;
  end;
end;
 
procedure PrintArray(mass : TMass);
var
  i, j : Byte;
begin
  WriteLn;
  for i := 0 to Length(mass)-1 do
  begin
    for j := 0 to Length(mass[i])-1 do
      Write(#9, mass[i, j]:7:2);
    WriteLn;
  end;
  WriteLn;
end;
 
function FindMax(line : TLine) : Real;
var
  i : Byte;
  //Result : Real;
begin
  Result := line[0];
  for i := 1 to Length(line)-1 do
    if (Result < line[i]) then
      Result := line[i];
  FindMax := Result;
end;
 
procedure ProcessArray(var mass : TMass);
var
  i, j : Byte;
  k : Real;
begin
  for i := 0 to Length(mass)-1 do
  begin
    k := FindMax(mass[i]);
    if (k = 0) then
    begin
      k := 1;
      WriteLn('Строку ', i+1, ' невозможно преобразовать!');
    end;
    for j := 0 to Length(mass[i])-1 do
      mass[i, j] := mass[i, j] / k;
  end;
end;
 
var
  mass : TMass;
 
begin
  FillArray(mass);
  PrintArray(mass);
  ProcessArray(mass);
  PrintArray(mass);
end.