Program a2; var n,i,min,max,x: integer; begin writeln('введите колицество человек в классе: '); readln(n); writeln('введите рост 1 ученика: '); readln(x); min: =x; max: =x; for i: =2 to n do begin writeln('введите рост ',i,' ученика: '); readln(x); if x> 0 then max: =x; if x< 0 then min: =x; end; writeln('рост самого низкого ученика',min); writeln('рост самого высокого ученика',max); end. что здесь неправильно?