среднее арифметическое элементов матрицы Х(n, m)

Program pr1;
type
  arr=array [1..100] of real;
var
  n,m:integer;
  sum,sr:real;
  x,y:arr;
begin
Randomize;
Writeln('Введите m');
  read(m);
 
for n:=1 to m do                      
  x[n]:=random(100)-random(100);
 
sum:=0;
for n:=1 to m do                   // среднее арифметическое
  sum:=sum+x[n];
sr:=sum/m;
 
Writeln('Sredne Aruf=',sr:6:2);
Writeln('______________');
Writeln('y           x');
 
for n:=1 to m do begin            // Создания У и вывод
 if x[n]>sr then
     y[n]:=x[n];
writeln(y[n]:6:2,'    ',x[n]:6:2);
end;
readln;
end.

uses crt;
const nmax=20;
var x: array [1..nmax,1..nmax] of integer;
    y: array [1..nmax*nmax] of integer;
    i,j,e,n,m: byte;
    sar: integer;
begin
repeat
write('Êîëè÷åñòâî ñòðîê, íå áîëåå ',nmax,', n='); readln(n);
until n in [1..nmax];
repeat
write('Êîëè÷åñòâî ñòîëáöîâ, íå áîëåå ',nmax,', m='); readln(m);
until m in [1..nmax];
writeln('Èñõîäíûé ìàññèâ');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        x[i,j]:=random(19)-9;
        write(x[i,j]:4);
        inc(sar,x[i,j]);
        end;
    writeln;
    end;
writeln('Ñðåäíåå àðèôìåòè÷åñêîå ìàññèâà ',sar/(n*m):0:1);
writeln('Ìàññèâ ýëåìåíòîâ, áîëüøèõ ',sar/(n*m):0:1);
e:=0;
for i:=1 to m do
    for j:=1 to m do
        if x[i,j]>sar/(n*m) then
           begin
           inc(e);
           y[e]:=x[i,j];
           write(y[e]:4)
           end;
readkey
end.