Не работает программка на Pascal. Почему?program z;var n,i,a,b,r:

Не работает программа на 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 ilt;gt;n do

begin

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

readln(r[i]);

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

end;

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

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

end.