Дан массив действительных чисел. Получить новый массив из элементов данного массива, значение которых больше среднего значения. Элементы в новом массиве должны располагаться в обратном порядке — Pascal(Паскаль)

uses crt;
const n=10;
var a,b:array[1..n] of integer;
    i,j,s,k:integer;
    sr:real;
begin
ClrScr;
Randomize;
for i:=1 to n do
 begin
  a[i]:=random(20)-10;
  Write(a[i],'  ');
 end;
Writeln;
s:=0;
for i:=1 to n do
 s:=s+a[i];
sr:=s/n;
Writeln('Sr=',sr:0:1);
for i:=1 to n do
 if a[i]>sr then
  begin
   inc(k);
   b[k]:=a[i];
  end;
Writeln('Mass B: ');
for i:=1 to k do
 Write(b[i],'  ');
Writeln;
Writeln('Mass B(obr): ');
for i:=k downto 1 do
 Write(b[i],'  ');
Readln;
end.