program AverageAndNewArray;
const
SIZE = 20;
var
arr: array[1..SIZE] of Integer;
newArr: array[1..SIZE] of Integer;
average, sum: Integer;
i, j, count: Integer;
begin
Randomize;
sum := 0;
for i := 1 to SIZE do
begin
arr[i] := Random(100);
sum := sum + arr[i];
end;
average := sum div SIZE;
writeln('Среднее арифметическое: ', average);
count := 0;
for i := 1 to SIZE do
begin
if arr[i] > average then
begin
count := count + 1;
newArr[count] := arr[i];
end;
end;
writeln('Новый массив из элементов первого больших среднего арифметического:');
for j := 1 to count do
begin
writeln(newArr[j]);
end;
end.

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