Задан рост ученика в классе

Если учеников в классе 10.program z1; vari,b, с: integer; a: array[1… 10] of integer; beginfor i: =1 to 10 dobegina[i]: =random (140,180); b: =max (b,a[i]); If a[i]=b thenc: =i; end; writeln ('Номер самого высокого учеика в классе: ', с); end.