Программирование

Как найти второе значение после максимального?
допустим есть цикл антил

max:=0;
repeat
i:=i+1;
readln(a);
if a>max then a:=max;
?????
max2:=?
until …

Как найти значение max2 (второе значение после максимального)?
Массив не используется.
  

2 комментария: Программирование

Комментарии запрещены.