Минимум и максимум из трёх чисел - Pascal ABC

Формулировка задачи:

Задача : "Напишите программу, которая выбирает максимальное и минимальное из трёх введённых чисел." Ссылка на нее: http://informatics.mccme.ru/mod/statements/view.php?id=11144#1 Мой код:

Program TheMinAndTheMaxOf3;
var num1,num2,num3:integer;
Begin
Readln(num1,num2,num3);
If (num1>num2) and (num1>num3) and (num2<num3)then
Begin
Writeln (num2);
Writeln(num1);
end
else
If (num2>num1) and (num1>num3)and (num2>num3) then
Begin
Writeln (num3);
Writeln(num2);
end
else
If (num3>num2) and (num2>num1) and (num1<num3) then
Begin
Writeln (num1);
Writeln(num3);
end
else
If (num1>num2)and (num2>num3) and (num1>num3)then
Begin
Writeln (num3);
Writeln(num1);
end
else
If (num2>num1)and (num2>num3)and (num1<num3) then
Begin
Writeln (num1);
Writeln(num2);
end
else
If (num3>num1) and (num3>num2)and (num2<num1) then
Begin
Writeln (num2);
Writeln(num3);
end
else
If (num1=num2) and (num1<num3) then
Begin
Writeln (num1);
Writeln(num3);
end
else
If (num1=num2) and (num1>num3)then
Begin
Writeln (num3);
Writeln(num1);
end
else
If (num2=num3)and (num1<num3)then
Begin
Writeln (num1);
Writeln(num3);
end
else
If (num2=num3)and (num1>num3)then
Begin
Writeln (num3);
Writeln(num1);
end
else
If (num3=num1) and (num2>num1)then
Begin
Writeln (num1);
Writeln(num2);
end
else
If(num3=num1) and (num2<num1)
then
Begin
Writeln (num2);
Writeln(num1);
end
else
If (num1=num2)and (num2=num3) and (num1=num3) then 
Writeln (num1);
end.

Не понимаю,что ему не нравится? Подставлял уже все возможные комбинации и с тремя неравными числами и с несколькоими одинаковыми в разных комбинациях. Подставлял долго, всегда выдает правильно. Думал,что проблема снова же с int/longint, но все ж таки нет,усиленно не проходит 3 теста. Я уже видел решение с массивами, но если считать,что я о них не знаю (а я ими и правда пользоваться пока не умею),то что делать? Понимаю,что разобраться с моими if'ми будет сложновато,но может у кого-то есть в запасе написанный код именно через кучу условных операторов. Не могу понять,какой вариант я упустил.

Решение задачи: «Минимум и максимум из трёх чисел»

Листинг программы

var num1,num2,num3,mn,mx:integer;
Begin
Readln(num1,num2,num3);
if num1>num2 then mx:=num1 else mx:=num2;
if num3>mx then mx:=num3;
if num1<num2 then mn:=num1 else mn:=num2;
if num3<mn then mn:=num3;
write(mn,' ',mx)
end.

Объяснение кода листинга программы

Создается переменная var с именем num1, которая будет хранить первое число, введенное пользователем.
Создается переменная var с именем num2, которая будет хранить второе число, введенное пользователем.
Создается переменная var с именем num3, которая будет хранить третье число, введенное пользователем.
Создается переменная var с именем mn, которая будет хранить минимальное значение из трех чисел.
Создается переменная var с именем mx, которая будет хранить максимальное значение из трех чисел.
С помощью функции Readln() считываются три числа от пользователя.
Если первое число (num1) больше второго числа (num2), то переменной mx присваивается значение num1.
Если второе число (num2) больше третьего числа (num3), то переменной mx присваивается значение num2.
Если первое число (num1) меньше второго числа (num2), то переменной mn присваивается значение num1.
Если второе число (num2) меньше третьего числа (num3), то переменной mn присваивается значение num2.
Переменная mn сравнивается с переменной mx. Если mn меньше mx, то переменной mx присваивается значение mn.
Переменная mn сравнивается с переменной mx. Если mn больше mx, то переменной mx присваивается значение mn.
Значения переменных mn и mx выводятся на экран с помощью функции write().
Конец программы.