Для каждой строки матрицы найти сумму ее элементов.

Program Matrica_Random;
 
Uses crt;   // подключаем модули
 
Type
mat = array [1..100,1..100] of integer ;
 
var
a:mat;
i,j,m,n,sum:integer; { индексы массива }
 
begin { начало основной программы }
 
 clrscr;   { очищает текстовое окно}
 randomize; { активирован Генератор Случайных Чисел ( Г.С.Ч. ) }
 Write('Количество строк: ');readln(m);
 Write('Количество столбцов: ');readln(n);
{------------------------------------------------------------------------------- формируем матрицу }
 Writeln('Исходная матрица:');
 For i:=1 to m do    { цикл для перебора всех строк }
    begin
    For j:=1 to n do   { перебор всех элементов строки по столбцам }
       begin
       a[i,j]:=random(10)+1;  { элементу, стоящему в i -й строке и j -м столбце, присваивается «случайное» целое число в диапазоне от 1 до 9 }
       write(a[i,j]:4);  { вывод элемента, стоящего в i -й строке и j -м столбце, при этом для вывода каждого элемента отводится 4 позиции }
       end;
    writeln;           { перевод курсора на следующую строку }
    end;
{------------------------------------------------------------------------------ матрица сформирована }
For i:=1 to m do
begin
sum:=0;
  For j:=1 to n do
    sum:=sum+a[i,j];
Writeln('Сумма эл-тов ',i,'-й строки = ',sum);
end;
 
 readkey; { читает символ из буфера клавиатуры.}
end.