В классе N учеников. Найти средний рост ученика в этом классе.(паскаль)

var s,i,n,k: integer; begin repeat write('Введите кол-во учеников: '); read(n); until n>0; for i:=1 to n do begin write('Введите рост ',i,' ученика: ');repeat read(k); until k>0; inc(s, k); end; write('Средний рост = ',s/n); end.