Номер §4.5 № 8

Для поиска максимума нельзя заранее принять max := : тогда для последовательности только из отрицательных чисел ответ окажется неверным. Первое ненулевое число сделаем текущим максимумом, а каждое следующее сравним с ним. Ноль служит признаком окончания ввода и не участвует в поиске. Логическая переменная found отмечает, было ли введено хотя бы одно ненулевое число.

var n, maximum: integer;
    found: boolean;
begin
  found := false;
  repeat
    readln(n);
    if n <>  then
    begin
      if not found then
      begin
        maximum := n;
        found := true
      end
      else if n > maximum then
        maximum := n
    end
  until n = ;
  if found then writeln('Максимум: ', maximum)
  else writeln('Ненулевых чисел не введено')
end.

Например, для ввода −, −, −, сначала maximum = −; число − меньше и ничего не меняет; − больше, поэтому maximum = −. После нуля цикл заканчивается, и выводится −. Если первым вводится ноль, максимум не определён; программа сообщает об отсутствии чисел.