Найти сумму элементов каждой строки и сумму элементов каждого столбца

uses CRT;
Const n=4;
var a:array [1..n,1..n] of integer;
i,j,s:integer;
procedure Summa_Stroki;
begin
     write('Ìàòðèöà:');
     randomize;
     for i:=1 to n do
     begin
          s:=0;
          for j:=1 to n do
              begin
                   a[i,j]:=Random(21);
                   gotoxy(j*5+10,i+1);
                   Write(a[i,j]);
                   s:=s+a[i,j];
              end;
     gotoxy(j*10+5,i+1);
     writeln(' Summa stroki=',s);
     end;
end;
procedure Summa_Stolbca;
begin
     for j:=1 to n do
     begin
          s:=0;
          for i:=1 to n do
              begin
                   s:=s+a[i,j];
              end;
     writeln(' Summa Stolbca=',s);
     end;
end;
begin
     ClrScr;
     Summa_Stroki;
     Summa_Stolbca;
end.

Program summastrok;
 
Uses summastrok.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  a : Array[1..50, 1..50] Of integer;
  i : integer;
  j : integer;
  n : integer;
  m : integer;
  S : integer;
Begin
  Write(‘сколько строк?’);
  Readln(m);
  Write(‘сколько столбцов?’);
  Readln(n);
  For i := 1 To m Do {* Цикл для i => [1 .. m] *}
    For j := 1 To n Do {* Переменная j увеличивается с 1 до n *}
    Begin
      write(‘a[‘, i,’,’, j,’) = ’);
      readln (a[i, j]);
    End;
  For i := 1 To m Do {* Цикл для i => [1 .. m] *}
  Begin
    S := 0;
    For j := 1 To n Do {* Увеличиваем j от 1 до n с шагом 1 *}
      S := S + a[i, j];
    Writeln(‘сумма элементов в ‘, i,’ строке равна  ‘, S);
  End;
  
End.

Uses CRT;
Const n=5;
var a:array[1..n] of integer;
    i,j,temp:integer;
Procedure Ra;
begin
     for i:=1 to n do
     begin
          a[i]:=Random(21);
          write(' a[',i,']=',a[i]);
     end;
end;
Function Te (a:array[1..n] of integer):integer;
begin
for i:=1 to n do
for j:=i to n do
      if a[j]<a[i] then
      begin
        temp:=a[i];
        a[i]:=a[j];
        a[j]:=temp
      end;
     writeln('');
     for i:=1 to n do write(' a[',i,']=',a[i]);
end;
Begin
     ClrScr;
     Ra;
     Te(a);
end.

Function Te (var a:array[1..n] of integer):integer;

Uses CRT;
Const n=5;
var a:array[1..n] of integer;
    i,j,t:integer;
Procedure Ra;
begin
     Randomize;
     for i:=1 to n do
     begin
          a[i]:=Random(31);
          write(' a[',i,']=',a[i]);
     end;
end;
Function Te(matr:array of integer):integer;
begin
t:=0;
for i:=1 to n do
begin
for j:=i to n do
      if a[j] <= a[i] then
      begin
        t:=a[i];
        a[i]:=a[j];
        a[j]:=t
      end;
end;
     writeln('');
     for i:=1 to n do write(' a[',i,']=',a[i]);
end;
Begin
     ClrScr;
     Ra;
     Te(a);
     readln;
end.