Определить сумму наибольшего и второго по значению наименьшего элементов. паскаль. не через массивы. у меня во внешнем файле есть последовательность из отрицательных и положительных чисел! 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 < min then begin
            prev_min := min;
            min := n;
        end;
    until n = 0;
   
    writeln(max, ' ', prev_min);
end.