Информатика 10 класс(паскаль)
Элементы массива могут принимать значения от 150 до 200(рост учащихся). посчитать средний рост среди учащихся класса, которые попадут в школьную баскетбольную команду( только больше 180 см)
помогите пожалуйста

var a, i, k: integer;
    r: array of integer;
    sr: Real;
begin
  write('Введите количество учящихся в классе: ');
  readln(a);
  setlength(r, a);
  randomize;
  k := 0;
  sr := 0;
  writeln('Рост учащихся:');
  for i := 0 to a - 1 do
  begin
    r[i] := random(200 - 150 + 1) + 150;
    write(r[i] + ' ');
    if r[i] > 180 then
    begin
      k := k + 1;
      sr := sr + r[i];
    end;
  end;
  writeln;
  writeln('Из них в комманду попадут ' + k + ' человек.');
  write('Их средний рост - ' + sr / k);
end.