Вводите по очереди данные в росте 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.