Паскаль, нужна подсказка

[Greene]

Написать программу, которая будет подсчитывать количество учеников, у которых рост выше среднего. Вот с таким видом:
Введите рост (см) и нажмите <Enter>
Для завершения введите 0 и нажмите <Enter>
->175
->170
->180
->168
->170
->0
Средний рост: 172.6 см
У 2-х человек рост превышает средний

Понятно, как вычислить средний рост. Вогнать в while. Но потом же обнулится и как посчитать у скольких превышает?

[VIK_aka_TOR]

значит нужно все данные о росте сохранить, к примеру в массив.... статический или динамический... ну или поэкзотичнее в список одно-, двунаправленный)))

[BDA]

var
  sr: real;
  count: longint;

function proc(var sr: real; const n: longint): longint;
var
  a: integer;
  b: longint;
begin
  readln(a);
  sr := sr + a;
  if a = 0 then
  begin
    proc := 0;
    if n > 0 then
      sr := sr / n;
  end
  else
  begin
    b := proc(sr, n + 1);
    b := b + ord(a > sr);
    proc := b;
  end;
end;

begin
  sr := 0;
  count := proc(sr, 0);
  writeln('Average: ', sr:0:3);
  writeln('Count above average: ', count);
  readln;
end.