с клавиатуры введен рост учеников (N количество) класса в виде множества.Нужно найти средний рост учеников

Поменял ввод на "школьный вариант"

// PascalABC.Net 3.0, сборка 1066var  i,n,k,h,a:integer;  s:set of 120..180;begin  Write('Количество учеников: '); Read(n);  Writeln('Введите рост учеников');  for i:=1 to n do begin Read(h); s:=s+[h] end;  k:=0; a:=0;  for i:=120 to 180 do    if i in s then begin Inc(k); a:=a+i end;  Writeln('Средний рост равен ',a/k)end.