Определить сумму наибольшего и второго по значению наименьшего элементов. Паскаль. Не через массивы. У меня во внешнем файле есть последовательность из отрицательных и положительных чисел! 1, 2,-3, 4, 5, -6, 7, 8, -9, 10! Наибольшее число 10, наименьшее число -9, второе по значению наименьшее -6! Я нашел наименьшее и наибольшее, но не пойму как найти второе по значению наименьшее, помогите)

Var
    max, min, prev_min, n: integer;

begin
    max := -10000;
    min := 10000;
    prev_min := 10000;
    repeat
        read(n);
        if n > max then begin
            max := n;
        end;
        if n             prev_min := min;
            min := n;
        end;
    until n = 0;
   
    writeln(max, , prev_min);
end.