Составьте программу нахождения наибольшего значения роста у двух членов…

Uses Crt; Var i, N, kol: byte; sum_rost, sr_rost: real; team: array[1… 100] of real; Begin sum_rost: =0,0; sr_rost: =0,0; kol: =0; write ('Введите количество членов команды'); read (N); writeln ('Введите рост каждого члена команды'); for i: =1 to N do begin readln (team[i]); sum_rost: =sum_rost+team[i]; end; sr_rost: =sum_rost / N; for i: =1 to N do if (team[i] > sr_rost) then kol: =kol+1; writeln ('Количество членов команды, рост которых превышает средний по команде (', sr_rost: 4:2, ') '); write (' равно ', kol); End. Прошу. Я надеюсь надо было на паскале написать?)