Сравнить сумму элементов К-ой строки и К-ого столбца квадратной матрицы

program g4;
const e=10;                                                    {Количество столбцов и строк матрицы}
var m: array [1..e,1..e] of integer;
    a,b,n,k,t: integer;
begin
{---------------------------------------------------}
for a := 1 to e do begin
for b := 1 to e do begin                                       {Вывод на экран матрицы, которая}
m[a,b] := Random(99)+1;                                        {заполнена случайными элементами}
if m[a,b]>9 then write(m[a,b],' ') else write(m[a,b],'  ');    {от 1 до 99}
end;
writeln();
end;
{---------------------------------------------------}
write('введите номер ');read(t);
for a:=1 to e do begin
n:=n+m[t,a];
k:=k+m[a,t];
end;
if n > k then writeln(n,' > ',k,' сумма элементов строки больше суммы элементов столбца') else
writeln(k,' > ',n,' сумма элементов столбца больше суммы элементов строки');
writeln();
end.

Var A:Array[1..100,1..100] of integer;
    n,m,i,j,k,s1,s2:integer;
Begin
    Randomize;
    s1:=0;s2:=0;
    write('Введите кол-во строк: ');readln(n);
    write('Введите кол-во столбцов: ');readln(m);
    For i:=1 to n do
     Begin
      For j:=1 to m do
       Begin
        A[i,j]:=Random(50)-25;
        write(A[i,j]:3);
       End;
      writeln;
     End;
    Repeat
    write('Введите k ');readln(k);
    Until (k in [1..n])and(k in [1..m]);
    For j:=1 to n do
     s1:=s1+A[k,j];
    For i:=1 to n do
     s2:=s2+A[i,k];
    writeln('Сумма строки=',s1);
    writeln('Сумма столбца=',s2);
    if s1>s2 then writeln('Сумма эллементов k-ой строки больше');
    if s1<s2 then writeln('Сумма эллементов k-ой столбца больше');
    if s1=s2 then writeln('Суммы равны');
End.

program g4;
const e=2;
var m: array [1..e,1..e] of integer;
    a,b,n,k,t: integer;
begin
{---------------------------------------------------}
for a := 1 to e do begin
for b := 1 to e do begin
m[a,b] := Random(99)+1;
if m[a,b]>9 then write(m[a,b],' ') else write(m[a,b],'  ');
end;
writeln();
end;
{---------------------------------------------------}
write('введите номер ');read(t);
for a:=1 to e do begin
n:=n+m[t,a];
k:=k+m[a,t];
end;
if n > k then writeln(n,' > ',k,' сумма элементов строки больше суммы элементов столбца');
if n < k then writeln(k,' > ',n,' сумма элементов столбца больше суммы элементов строки');
if n = k then writeln(n,' = ',k,' суммы элементов строки и столбца равны');
writeln();
end.

program g4;
const e=5;                                 {задаём "е", как константу в начале т.к. до begin}
                                           {задавать значения переменным нельзя,}
                                           {но это необходимо для задания границ массива}
var m: array [1..e,1..e] of integer;       {при е=5 запись может выглядеть, и как m: array [1..5,1..5] of integer;}
           a,b,n,k,t: integer;
begin
{---------------------------------------------------}
for a := 1 to e do begin                    {пока а не равно е, с шагом 1 будет заполняться m[1,b], m[2,b], m[3,b] до m[e,b]}
for b := 1 to e do begin                    {или можно написать m[1,1..e] и если е=5, то m[1,1..5]}
m[a,b] := Random(99)+1;
if m[a,b]>9 then write(m[a,b],' ') else write(m[a,b],'  ');
end;
writeln();
end;
{---------------------------------------------------}
write('введите номер ');read(t);            {просим указать номер строки(т.к. матрица квадратная, то и столбца)}
for a:=1 to e do begin                      {суммируем каждый элемент строки и столбца отдельно}
n:=n+m[t,a];                                {это выглядит, как m[t,1]+m[t,2]+..+m[t,e] для строки}
k:=k+m[a,t];                                {и m[1,t]+m[2,t]+..+m[e,t] для столбца}
end;
if n > k then writeln(n,' > ',k,' сумма элементов строки больше суммы элементов столбца');
if n < k then writeln(k,' > ',n,' сумма элементов столбца больше суммы элементов строки');
if n = k then writeln(n,' = ',k,' суммы элементов строки и столбца равны');
writeln();
end.