[CyberDaemon]

Именно.

спрятал решение

Не надо вводить сначала два числа, а потом еще настойчиво ждать третьего.
Нужно просто после ввода первого из чисел - присвоить его и максимуму и минимуму, т.е. max=min=первое введенное число. Одна дополнительная строчка в первом варианте кода. При первом прогоне цикла инициализировать обе переменные введеным числом.

А еще можно поступить маньячно - какой там предел у типа integer? От -32768 до 32767?
Тогда в первом варианте вместо min:=0; max:=0; пишем max:=-32768; min:=32767 - тоже сработает - ибо любое введенное допустимое для integer число окачется внутри этих пределов

Наверное, я сейчас добавлю отдельные операторы именно для значения 1 и 2. »

Так и подмывает стереть мое сообщение, чтобы посмотреть, насколько монструозно можно решить задачку. Хотя, в плане обучения программированию - даже монстр полезен. Решено - не сотру, но спрячу