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

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программка не работает, обновите версию!

begin
  var a:=ArrRandom(20,-50,50); a.Println;
  var b:=a.Where(t-gt;tgt;a.Average).ToArray; b.Println
end.

Пример
10 32 7 10 -17 -5 6 14 -39 -20 -28 2 -22 15 10 11 28 -13 -29 31
10 32 7 10 6 14 2 15 10 11 28 31

Program TZ5;
const
n=20;
var
a,z:array [1..n] of integer;
i,b,x:byte;
begin
randomize;
for i:=1 to n do begin
 a[i]:=random (20);
 a[i]:=a[i]-10;
        writeln(i,'  ',a[i]);
end;
b:=0;
for i:=1 to n do
    b:=b+a[i];
x:=1;
writeln;
for i:=1 to n do
    if a[i]gt;b/n then begin
       z[x]:=a[i];
       x:=x+1;
    end;
for i:=1 to x do
    writeln(i,' ',z[i]);
readln;
end.