Напишите программку с поддержкою Паскаля.Сформировать массив случайным образом(длина массива

Так как в разных строчках может быть различное количество значений огромных, чем среднее, то какой размерности обязан быть итоговый массив. Как компромисный вариант предлагаю таковой же 20х20, с нулями место неугодных значений

либо можно построчно двинуть все нужные элементы в лево, но длина строк будет различной

Программка сформировывает новый массив со смещением в лево

Program sector;
const
n=10;
var
a,b:array [1..n,1..n] of integer;
z:real;
i,j,k: byte;
begin
randomize;
for i:=1 to n do begin
    for j:=1 to n do begin
        a[i,j]:=random (40);
        a[i,j]:=a[i,j]-20;
        write(a[i,j]:4);
    end;
    writeln;
    end;
z:=0;
for i:=1 to n do
    for j:=1 to i do
        z:=z+a[i,j];
z:=z/(n*n);
writeln('srednee = ',z);
for i:=1 to n do begin
    k:=1;
    for j:=1 to n do
        if a[i,j] gt; z then begin
           b[i,k]:=a[i,j];
           write(b[i,k]:4);
           k:=k+1;
        end;
    writeln;
end;
readln;
end.

Begin
  var i, j: integer;
  var s: real;
  var m: array[1..20] of integer;
  var n: array[1..20] of integer;

  формируем массив и заодно вычисляем сумму частей
  for i := 1 to 20 do begin
    m[i] := random(1000);
    s := s + m[i];
  end;

  печать массива  
  for i := 1 to 20 do begin
    writeln(m[i]);
  end;
  writeln('');
 
  среднее арифметическое
  s := s / 20;
  writeln(s);
 
  j := 0;
  for i := 1 to 20 do begin
    if m[i] gt; s then begin
      j := j + 1;
      n[j] := m[i];
    end;
  end;
 
  writeln('');
 
  for i := 1 to j do begin
    writeln(n[i]);
  end;

end.