//Функция для подсчета максимальной суммы элементов
function MaxElemntsSum(Matrix: MatrixArray, Order: Integer): Integer;
var
   i, j, MaxSum: Integer;
   MaxLnColoumn: array[0..3] of Integer
begin
   for i:=0 to Order do
      for j:=0 to Order do
      begin
         if (j+1) < Order then
            Sum := Matrix[i][j] + Matrix[i][j+1]
            if Sum > MaxSum then
            begin
               MaxSum := Sum;