Вывести на печать элементы массива великие или одинаковые среднему арифметическому

Program z4;  Var a: array [1..1000] of integer;      i, sum, n:integer; S_R: real;Begin  write('Введите кол-во частей - '); readln(n);    for i := 1 to n do  begin    a[i] := random (30);    sum:= sum + a[i];  end;    S_R:= sum / n;    writeln('Cреднее арифметическое - ', S_R);    for i := 1 to n do    if (a[i] gt;= S_R) then write(a[i],' ');   End.