Найти наибольшее из двух чисел: суммы элементов k-й строки и суммы элементов s-го столбца матрицы

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Windows;
 
const
  M = 5;
  N = 5;
var
  S : String;
  Arr : array[1..M, 1..N] of Integer;
  i, j, Col, Row, Sum1, Sum2 : Integer;
begin
  //Переключение окна консоли на кодовую страницу CP1251 (Win-1251).
  //Если после переключения русские буквы показываются неверно,
  //следует открыть системное меню консольного окна - щелчком мыши в левом
  //верхнем углу окна консоли и выбрать:
  //Свойства - закладка "Шрифт" - выбрать шрифт: "Lucida Console".
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  repeat
    Writeln('Размер массива: ', M, 'x', N);
    //Записываем в массив случайные целые числа и выполянем распечатку.
    Randomize;
    for i := 1 to M do begin
      for j := 1 to N do begin
        Arr[i, j] := Random(6);
        if j > 1 then Write(', ');
        Write(Arr[i, j]);
      end;
      Writeln;
    end;
 
    Writeln('Задайте номер строки:');
    Readln(Row);
    Writeln('Задайте номер столбца:');
    Readln(Col);
 
    //Решение задачи.
    //Подсчёт суммы элементов в строке.
    Sum1 := 0;
    for i := 1 to N do Sum1 := Sum1 + Arr[Row, i];
    //Подсчёт суммы элементов в столбце.
    Sum2 := 0;
    for i := 1 to M do Sum2 := Sum2 + Arr[i, Col];
 
    //Ответ.
    Writeln('Сумма элементов строки: ', Sum1);
    Writeln('Сумма элементов столбца: ', Sum2);
    if Sum1 > Sum2 then
      Writeln('Сумма элементов строки больше, чем сумма элементов столбца.')
    else if Sum1 < Sum2 then
      Writeln('Сумма элементов столбца больше, чем сумма элементов строки.')
    else
      Writeln('Суммы элементов строки и столбца одинаковые.');
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.

    Randomize;
    for i := 1 to M do begin
      S := ''
      for j := 1 to N do begin
        Arr[i, j] := Random(6);
        if j > 1 then S := S + #9; //#9 - код горизонтальной табуляции.
        S := S + IntToStr(Arr[i, j]);
      end;
      Memo1.Lines.Add(S);
    end;