Вводите по очереди данные в росте n учащихся класса.определить средний рост учащихся в классе

Var i,sum,m,pr:real;
begin 
i:=1; m:=-1; 
writeln('Вводите рост учеников, когда закончите введите 0.');
while (i<>0) do begin               
          readln(i);               
              sum:=sum+i;               
m:=m+1;               
   end;     
   pr:=sum/m;       
writeln('Средний рост:',pr);       
end.