в классе n воспитанников. отыскать самого высокого и низкого воспитанника

Var
  n,m,k,i,l,max,min:longint;
begin
max:=-maxlongint;
min:=maxlongint;
 readln(n);
for i:=1 to n do 
begin
 readln(n);
if ngt;max then max:=n;
if nlt;min then min:=n;
end;
writeln('Самый высочайший ',max);
writeln('Самый маленький ',min);
end.

Пройдёмся перебором по всем n воспитанникам, записывая их рост. Получая очередной рост, сравним его с теснее имеющимися самым великим и самым малюсеньким ростом. Если он между ними, то не берём это значение. После N шагов получим два числа, которые разыскивали.