Не работает программа на Pascal. Почему?program z;var n,i,a,b,r: integer;begina:=0;b:=0;writeln('Введите число учеников');readln(n);for i:=0 to n dowhile i<>n dobeginwriteln('Введите рост ученика');readln(r[i]);if r[i]>170 then inc(a) else inc(b);end;writeln('Подходят ',a,'учеников');writeln('Неподходят ',b,'учеников');end.