В группе учится n учащихся. Определить самого высокого ученика

Program rost; uses crt; const n=20; Var nomer,rost_uch,i: integer; a: array[1… n] of integer; BeginFor i: =1 to n do Begin Write (' Рост ',i,'-ого ученика='); Readln (a[i]); End; nomer: =1; rost_uch: =a[1]; For i: =2 to n do If rost_uch