Определить максимум из сумм элементов заданной строки и заданного столбца матрицы

sum1:=0; sum2:=0;
For i:=1 to MaxS do sum1:=sum1+M[k,i];
For i:=1 to MaxK do sum2:=sum2+M[i,s];
Writeln(Max(sum1,sum2));

type
mas_2 = array [1..20, 1..20] of integer;
 
procedure inp2(var m, n: byte; var a: mas_2);
var
i, j: byte;
begin
write('Размеры таблицы? ');
readln(m, n);
for i := 1 to m do
for j := 1 to n do
a[i, j] := 10000 + random(40001)
end;
procedure outp2(m, n: byte; const a: mas_2);
var
i, j: byte;
begin
for i := 1 to m do
begin
writeln;
for j := 1 to n do
write(a[i, j]:7);
end;
writeln;writeln;
end;
function sum_strok(m, n: byte; const a: mas_2; k: byte): integer;
var
i: byte;
s: integer;
begin
s := 0;
for i := 1 to m do
s := s + a[i, k];
sum_strok := s;
end;
function sum_stolb(m, n: byte; const a: mas_2; k: byte): integer;
var
i: byte;
s: integer;
begin
s := 0;
for i := 1 to m do
s := s + a[k, i];
sum_stolb := s;
end;
 
var
m, n,k: byte;
a: mas_2;
 
begin
randomize;
inp2(m, n, a);
outp2(m, n, a);
writeln(sum_strok(m, n, a, k));
writeln(sum_stolb(m, n, a, k));
if (sum_strok(m, n, a, k)) > (sum_stolb(m, n, a, k)) then
Writeln('Сумма элементов строки больше, чем сумма элементов столбца. ')
else if (sum_strok(m, n, a, k)) < (sum_stolb(m, n, a, k)) then
Writeln('Сумма элементов столбца больше, чем сумма элементов строки. ')
else
Writeln('Суммы элементов строки и столбца одинаковые. ');
end.

type
mas_2 = array [1..20, 1..20] of integer;
procedure inp2(var m, n: byte; var a: mas_2);
var
i, j: byte;
begin
write('Размеры таблицы? ');
readln(m, n);
for i := 1 to m do
for j := 1 to n do
a[i, j] := 1 + random(11)
end;
procedure outp2(m, n: byte; const a: mas_2);
var
i, j: byte;
begin for i := 1 to m do
begin
writeln;
for j := 1 to n do
write(a[i, j]:5);
end;
writeln;writeln;
end;
function sum_stroki(m, n: byte; const a: mas_2; k: byte): integer;
var
j: byte;
s: integer;
begin
s := 0;
for j := 1 to 5 do
s := s + a[k, j];
sum_stroki := s;
end;
function sum_stolb(m, n: byte; const a: mas_2; l: byte): integer;
var
i: byte;
s: integer;
begin
s := 0;
for i := 1 to m do
s := s + a[i, l];
sum_stolb := s;
end;
 
var
m, n, k,l, max: byte;
a: mas_2;
 
begin
randomize;
inp2(m, n, a);
outp2(m, n, a);
writeln('Номер строки: ');
readln(k);
writeln('Сумма  элементов ', k, '-й строки равна ', sum_stroki(m, n, a, k));
writeln('Номер столбца: ');
readln(l);
writeln('Сумма  элементов ', l, '-го столбца равна ', sum_stolb(m, n, a, l));
max:=0;
if sum_stolb(m, n, a, l)>sum_stroki(m, n, a, k)
then max:=sum_stolb(m, n, a, l)
else max:=sum_stroki(m, n, a, k);
writeln('Максимальное = ',max);
end.