Пожалуйста помогите!!!!! Нужно сделать с помощью PASCAL
Я СДЕЛАЛА НАЧАЛО, ПОМОГИТЕ ЗАКОНЧИТЬ И ЕСЛИ ЕСТЬ ОШИБКИ- ИСПРАВИТЬ
Имеется n кол-во учеников одного класса. Для каждого в компьютер вводится рост. До 160-низкий, от 160 до 170-средний, от 170-высокий.
Вот начало программы:

PROGRAM rost;
VAR A,B,N:REAL;
BEGIN
?N=0(НЕ ЗНАЮ ГДЕ ЭТО ПОСТАВИТЬ)
WRITELN( 'ЕСТЬ ЛИ УЧЕНИКИ В КЛАССЕ? , ЕСЛИ ДА-1, НЕТ-0);
READLN(A);
WHILE A=1 DO;
BEGIN
WRITELN ('ВВЕДИТЕ СВОЙ РОСТ');
READLN (B);
N=N+1
IF B<160 THEN.................
..................
..................
....................