SuperMatrix

program SuperMatrix;

const
  maxColLength = 255
  maxRowLength = 255

type
  squareMatrix = array [1..maxColLength, 1..maxRowLength] of real;

/*
  ЭЙ!!! Есди ниже будет ошибка, то вместо function поставь procedure, а newMatrix убери из var, а добавь её в скобках после слова matrix ("matrix: squareMatrix; var newMatrix: squareMatrix;").
  А так же убери getMixedMatrix := newMatrix
*/

function getMixedMatrix(matrix: squareMatrix; maxCol, maxRow: integer): squareMatrix;
var
  maxColNumber, minColNumber: real;
  newMatrix = squareMatrix;

  i, j: integer;

begin
  for i := 1 to maxCol do
  begin

    { computing minimum and maximum number in the string }
    maxColNumber := matrix[i][1];
    minColNumber := matrix[i][1];

    for j := 2 to maxRow do
    begin
      if maxColNumber < matrix[i][j] then
        maxConNumber := matrix[i][j];
      if minColNumber > matrix[i][j] then
        minConNumber := matrix[i][j];
    end;

    { computing line for new matrix}
    for j := 1 to maxRow do
    begin
      newMatrix[i][j] := (matrix[i][j] - minColNumber) / (maxColNumber - minColNumber);
    end;


  end;

  getMixedMatrix := newMatrix;

end;

var
  inuptMatrix, outputMatrix: squareMatrix;
  max_col, max_row: integer;
  i, j: integer;

begin
  WriteLn('Введите длину и высоту матрицы');
  ReadLn(max_col, max_row);
  WriteLn('Теперь введите всю матрицу через пробел и enter');
  for i := 1 to max_col do
    for j := 1 to max_row do
      Read(inputMatrix[i][j]);
    ReadLn;

  outputMatrix := getMixedMatrix(inputMatrix, max_col, max_row);

  /*
    ЕСЛИ БУДЕТ ОШИБКА, ТО ЗАМЕНИ СТРОЧКУ ВЫШЕ НА:
    getMixedMatrix(inputMatrix, outputMatrix, max_col, max_row);
  */

  WriteLn;
  for i := 1 to max_col do
    for j := 1 to max_row do
      Write(outputMatrix[i][j], ' ');
    WriteLn;
end.