var a: array[1..5, 1..6] of integer;
sum1: array[1..5] of integer;
sum2: array[1..6] of integer;
begin
  for var i:=1 to 5 do begin
    for var b:=1 to 6 do begin
       a[i][b]:=Random(5)
    end;
  end;
  writeln(a);

  for var i:=1 to 5 do begin
     for var b:=1 to 6 do begin
        sum1[i]+= a[i][b]
     end;
  end;

  writeln('Суммы строк: ', sum1);

   for var i:=1 to 6 do begin
     for var b:=1 to 5 do begin
        sum2[i]+= a[b][i]
     end;
  end;
  write('Суммы столбцов: ', sum2);
end.

/* Вывод

[[3,3,1,4,0,1],[3,0,0,1,0,3],[4,4,3,4,1,1],[0,3,4,1,4,3],[2,1,0,0,4,4]]
Сумма строк: [12,7,17,15,11]
Сумма столбцов: [12,11,8,10,9,12]