Здравствуйте, Speluk!
Предлагаю вариант решения.
Код в приложении.
В последнем столбце результатов - средние значения по строке

Приложение:
const
n = 8;
m = 10;

var
x: array[1..n, 1..m] of integer;
av: array[1..n] of real;
i, j, summ: integer;
begin
randomize;
writeln('Massiv 1');
for i:= 1 to n do
for j:= 1 to m do
x[i, j]:= Random(20) - 5;

for i:= 1 to n do
begin
summ:= 0;
for j:= 1 to m do summ:= summ + x[i,j]; {вычисление суммы по строке}
av[i]:= summ / m; {вычисление среднего}
end;

{вывод результатов}
for i:= 1 to n do
begin
for j:= 1 to m do write(x[i,j]:5);
write(av[i]:10:2);
writeln;
end;
readln;
end.

Здравствуйте, Speluk!
Решение задачи в приложении.

Приложение:
uses crt;
const n=6; {размеры матрицы}
m=5;
var x:array[1..n,1..m] of real;{матрица}
i,j:integer;
sr:real; {среднее}
begin
clrscr;
randomize;
writeln('Matrica:'); {создаем и выводим на экран матрицу}
for i:=1 to n do
begin
for j:=1 to m do
begin
x[i,j]:=10*random;
write(x[i,j]:5:2);
end;
writeln;
end;
for i:=1 to n do
begin
sr:=0;
for j:=1 to m do
sr:=sr+x[i,j]/m; {считаем срнднее в каждой строке, суммируя элементы строки, деленные на их количество}
writeln('Srednee x stroke ',i,' =',sr:0:2);{выводим результат по каждой строке}
end;
readln
end.