Не работает программа на 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.