вершина характеризуется названием и высотой. Выдать название самой высокой вершины.

[s1avjan]

Решаю через запись, успехов нет.

[Филантроп]

max:=1;
for i:=2 to n do
if a[i].vys>a[max].vys then max:=i;
writeln(a[max].nazv);