Помогите написал прогу, но сайт не принимает решение. В чем ошибка? И можно ли по-другому составить программу? Нужно было найти второй максимальный элемент Последовательность состоит из различных натуральных чисел и завершается...

Помогите написал прогу, но сайт не принимает решение. В чем ошибка? И можно ли по-другому составить программу? Нужно было найти второй максимальный элемент Последовательность состоит из различных натуральных чисел и завершается числом 0. Определите значение второго по величине элемента в этой последовательности. Числа, следующие за числом 0, считывать не нужно. program r1; var max1,max2,k:longint; begin readln (k); max1:=k; max2:=k; while k<>0 do begin readln (k); if k>max1 then begin max2:=max1; max1:=k; end; end; writeln (max2); readln; end.