Данные о температуре воздуха за декаду хранятся в массиве. Найти, сколько

var
  a: array[1..10] of integer;
  i, sum, count: integer;
  average: real;
begin
  sum := 0;
  writeln('Данные о температуре: ');
  for i := 1 to 10 do
  begin
    a[i] := random(61) - 30;
    sum := sum + a[i];
    write(a[i], ' ');
  end;
  writeln;
  average := sum / 10;
  for i := 1 to 10 do
    if a[i] gt; average then inc(count);
  writeln(count, ' раз(a)');
end.