Pascal Простенькая программа.

Question

var 
x,max,y:integer; 
Begin 
read(max); 
Read(x); 
y:=x; 
while x<>-1 do 
begin 
if x>max then max:=x; 
read(x); 
End; 
write(max); 
end. 
Это программа дл нахождения максимума из чисел, я хочу на основе этой програамы написать для нахождения 2-го наибольшего числа (Y), но не знаю, как можно этого добиться. Прошу помощи,

Егор · Accepted Answer

Точно так же, только запоминать два числа: 
read(max); 
read(y); 
if y>max then begin 
x:=y;y:=max;max:=y;{меняем y и max, если они наоборот стоят} 
end; 
 
while x<>-1 do 
begin 
read(x); 
if x>max then begin 
 y:=max;{а здесь запоминаем y - в него сдвигается бывший max} 
 max:=x; 
end; 
End; 
write(max,' ',y); 
end.