Не работает программа на Pascal. Почему?

program z;

var n,i,a,b,r: integer;

begin

a:=0;

b:=0;

writeln('Введите число учеников');

readln(n);

for i:=0 to n do

while i<>n do

begin

writeln('Введите рост ученика');

readln(r[i]);

if r[i]>170 then inc(a) else inc(b);

end;

writeln('Подходят ',a,'учеников');

writeln('Неподходят ',b,'учеников');

end.

Отсутствует массив как таковой