Дан массив целых чисел. Составить программу обработки двумерных массивов...Паскаль

[gudok2]

Определить и напечатать значения тех элементов каждой строки матрицы, которые превышают среднее значение всех элементов матрицы.

Помогите пожалуйста

[Sciv]

Чем помочь, если Вы сами нифига делать не пытаетесь?

[interacia]

program Matrix2;
var
j,i:integer;
SR:real;
a: array [1..10,1..10] of integer;
begin
SR:=0;
for i:=1 to 10 do
begin
 write(i,')');
  for j:=1 to 10 do
  begin
   a[i,j]:=random(100);
   write(a[i,j]:3);
   SR:=SR+a[i,j];
  end;
 writeln;
end;

SR:=SR/100;
writeln;
writeln('Ответ:',SR);
 for i:=1 to 10 do begin
 write(i,')');
  for j:=1 to 10 do
   if  a[i,j]>SR then Write(A[i,j]:3);
    writeln;
   end;
end.

[gudok2]

Огромное спасибо))