Найти max и min роста всех учеников 10 класса… . В классе 7 человек

Программа присваивает ученикам случайное значение роста в диапазоне от 160 до 180 см.Program n1; Uses CRT; Const n=7; Var A: array[1… n] of integer; i,min,max: integer; beginrandomize; ClrScr; Writeln ('Rost vseh ychashihsa'); max: =0; For i: =1 to n do begin a[i]: =random (20); a[i]: =a[i]+160; write (a[i]: 4); If a[i]>max then max: =a[i]; end; min: =max; For i: =1 to n do If a[i] комментировать