Последовательность состоит из различных натуральных чисел и завершается числом 0. Определите значение второго по величине элемента в этой последовательности.

Числа, следующие за числом 0, считывать не нужно.

Входные данные
Вводится последовательность целых чисел, оканчивающаяся числом 0 (само число 0 в последовательность не входит).

Выходные данные
Выведите ответ на задачу.

Примеры
входные данные
1
7
9
0
выходные данные
7


Помогите пж программирование очень срочно pascal abc.Желательно написать целый код а не подсказывать

Program n1;type z= array of integer;var a:z;d,n,i,j,x: integer;beginn:=0;while true dobeginreadln(d);if d=0 then break;n:=n+1;setlength(a,n);a[n-1]:=d;end;for i:=0 to n-2 dofor j:=i+1 to n-1 doif a[i]<a[j] then beginx:=a[i];a[i]:=a[j];a[j]:=x;end;writeln(a[1]);end.