Массив: В массиве найти сумму элементов столбца и строки массива, на пересечении которых находится максимальный элемент

program Project1;
const
  maxelem = 10;  // Максимальное значение количества строк и столбцов в двумерном массиве.
var
  vib: integer;  // Вспомогательная переменная для организации выбора режима ввода.
  n,m: integer;  // Переменные для хранения значений количества строк и столбцов.
  a: array [1..maxelem,1..maxelem] of integer; // Переменная для хранения массива.
  i,j: integer;  // Вспомогательные переменные для организации циклов.
  max: integer;  // Переменная для хранения значения первого найденного максимального элемента.
  indmax1,indmax2: integer;  // Переменные для хранения значений индекса первого найденного элемента с максимальным значением.
  sum: integer; // Переменная для хранения значения суммы элементов.
begin
  Randomize;
  Writeln('Введите значение количества строк:');
  Readln(n);
  Writeln('Введите значение количества столбцов:');
  Readln(m);
  Writeln('Введите 1, если ввод чисел будет осуществляться в ручном режиме');
  Writeln('Введите 2, если числа будут заданы генератором случайных чисел');
  Readln(vib);
  case vib of
  1: for i:= 1 to n do   // Перебор всех элементов двумерного массива.
      for j:= 1 to m do
       begin
        writeln('Введите элемент ',i,' строки ',j,' столбца.');
        Readln(a[i,j]);      //  Ввод значений в массив.
       end;
  2: for i:=1 to n do    // Перебор всех элементов двумерного массива.
      for j:=1 to m do
        a[i,j]:= random(101) - 50;   // Ввод значений в массив из генератора случайных чисел.
  end;
  writeln('Исходный массив:');
  for i:= 1 to n do       // Перебор всех элементов двумерного массива.
    begin
    for j:= 1 to m do
      Write(a[i,j]:4);    // Вывод элементов в консоль.
    writeln;
    end;
  max:= -2147483646;  // Начальное значение переменной для поиска максимального значения.
  for i:= 1 to n do   // Перебор всех элементов двумерного массива.
    for j:= 1 to m do
      begin
      if a[i,j] > max then  // Условие для поиска первого элемента с максимальным значением.
         begin
         max:= a[i,j];   // Присвоение переменной найденного значения.
         indmax1:= i;    // Индекс строк найденного элемента.
         indmax2:= j;    // Индекс столбцов найденного элемента.
         end;
      end;
  sum:= 0;
  for j:= 1 to n do      // Перебор всех элементов строки.
    sum:= sum + a[indmax1,j];   // Сумма элементов строки с найденным индексом.
  for i:= 1 to m do       // Перебор всех элементов столбца.
    sum:= sum + a[i,indmax2];   // Сумма элементов столбца с найденным индексом.
  writeln('Первый найденный элемент с максимальным значением [',indmax1,',',indmax2,'] = ', max);
  writeln('Сумма элементов строки и столбца, которые проходят через элемент с максимальным значением: ',sum);
  Readln;
end.