Помогите решить задачу Паскаль

var i, j, n, m, kolvo: integer;
a: array [1..100,1..100] of real;
sum: real;
begin
write ('введите n & m = ');
readln (n, m);
sum:=0;
kolvo:=0;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=5 - random (10)- random (10) / 10;
if a[i,j] < 0 then write (a[i,j]:0:2,' ':2)
else
begin
write (' ',a[i,j]:0:2,' ':2);
sum:=sum+a[i,j];
inc(kolvo);
end;
end;
writeln;
end;
sum:=sum / kolvo;
writeln;
writeln ('среднее арифметическое = ',sum:0:2);
writeln;
for i:=1 to n do
begin
for j:=1 to m do
begin
if (i+j = 2) or (i+j = n+m) then write (' ' ,sum:0:2,' ':2) else
if a[i,j] < 0 then write (a[i,j]:0:2,' ':2)
else write (' ',a[i,j]:0:2,' ':2);
end;
writeln;
end;
end.

А где код, по которому видно, что ты пытался сделать сам? Помочь - это не решить за тебя.

Вот тебе на размышление:

program p1;
uses crt;
type
TMatrix = array[1..10, 1..10] of integer;

var A : TMatrix;
N : integer; //количество строк
M : integer; //количество столбцов
//****************************************
//процедура ввода матрицы
procedure inputMatr(var matr : TMatrix);
var i, j : integer;
begin
for i := 1 to N do
for j := 1 to M do
begin
write('matr[',i,'][',j,']= ');
readln(matr[i,j]);
end;
end;
//****************************************
//процедура вывода матрицы
procedure outputMatr(var matr : TMatrix);
var i, j : integer;
begin
for i := 1 to N do
begin
for j := 1 to M do write(' ',matr[i,j]);
writeln;
end;
end;