Даны натуральное число n и вещественные числа x1, x2, ..., xn. Найти максимальное и минимальное из вещественных чисел. В решении использовать только один оператор цикла.​(в паскале)

var

 min, max, n: real;

begin

 read(n);

 min := n;

 max := n;

 while n <> 0 do

   begin

     if n > max

       then max := n

       else if n < min

         then min := n;

     read(n)

   end;

 if (min <> 0) or (max  <> 0)

   then write('min = ', min, ', max = ', max)

   else write('Пустая последовательность')

end.