Найти максимальное и минимальное число из максимум 30 без массивов

var min, max, n : Integer;
begin
  Read(n);
  if n = 0 then Halt;
  min := n; max := n;
  repeat
    Read(n);
    if n > max then max := n else if n < min then min := n;
  until n = 0;
  WriteLn(min, ' ', max);
end.

    if n <> 0 then if n > max then max := n else if n < min then min := n;

  repeat
    Read(n); if n=0 then Break;
    ...
  until False;

var
  min, max, n: integer;
 
begin
  read(n);
  if n <> 0
    then begin
      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;
      write('min = ', min, ', max = ', max)
    end
    else write('Пустая последовательность')
end.

  действие;
  while условие do begin
    ...
    действие;
  end;

  while условие_и_действие do ...;

var
  min, max, n: integer;
 
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.

  while x correct
    {...}
  until y;

  repeat
    if n<>0 then ...;
  until n=0;

  repeat
    if n=0 then Break;
    ...
  until False;

  Read(n);
  while n<>0 do begin
    ...
    Read(n);
  end;

  Read(n); mx:=n; mn:=n;
  while n<>0 do begin
    if mx<n then mx:=n else if mn<n then mn:=n;
    Read(n);
  end;
 
  Read(n); mx:=n; mn:=n;
  repeat
    Read(n); if n=0 then Break;
    if mx<n then mx:=n else if mn<n then mn:=n;
  until False;