Решите с помощью Паскаля,пожалуйста

Сформировать массив случайным образом(длина массива 20).Найти в нем среднее арифметическое.Сформировать новый массив из элементов первого больших среднего арифметического.

Проблема лишь в том, что "классический Паскаль" существует лишь в пределах школ.

Да и то, слава богу, ежу не всех.

*уже

const это раздел, в котором объявляются константы, смотри следующую строку

А как по другому записать?Просто мы это не проходили

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(20,-50,50); a.Println;  var b:=a.Where(t->t>a.Average).ToArray; b.Printlnend.Пример10 32 7 10 -17 -5 6 14 -39 -20 -28 2 -22 15 10 11 28 -13 -29 3110 32 7 10 6 14 2 15 10 11 28 31

Program TZ5;constn=20;vara,z:array [1..n] of integer;i,b,x:byte;beginrandomize;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]>b/n then begin       z[x]:=a[i];       x:=x+1;    end;for i:=1 to x do    writeln(i,' ',z[i]);readln;end.