Определить два наибольших числа в последовательности и найти их частное. не через массивы. паскаль.

Var
    max, prev_max, n: integer;

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