Из данных a,b,c,d построить треугольник с наибольшим периметром - Turbo Pascal

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

Заколдованный принц нашел 4 волшебных палочки, длины которых a,b,c и d. Чтобы расколдоваться, ему нужно из них построить «волшебный треугольник» с наибольшим периметром, а затем встать внутрь этого треугольника. Напишите программу, которая определяет, из каких конкретно волшебных палочек принц должен построить данный треугольник. Формат входных данных: С клавиатуры вводится четыре положительных числа через пробел- a,b,c и d, которые обозначают длины палочек. Формат выходных данных: На экран вывести длины палочек, из которых можно построить треугольник с максимальным периметром в алфавитном порядке перечисления их длин через пробел. Если ни одного треугольника построить нельзя, программа должна вывести слово «NO».

Решение задачи: «Из данных a,b,c,d построить треугольник с наибольшим периметром»

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

var a, b, c, d ,max1, max2, max3, max, min1, min2, min3: integer;
begin
 write('Введите размеры 4-ёх волшебных палочек через пробел: '); readln(a,b,c,d);
 {-----------------}
 if a>b then
  begin
   max1:=a;
   min1:=b;
  end                
                         {Нахождение максимального и минимального в первой паре чисел}
 else
  begin
   max1:=b;
   min1:=a;
  end;
 {-----------------}
 if c>d then
  begin
   max2:=c;
   min2:=d;
  end
                         {Нахождение максимального и минимального во второй паре чисел}
 else
  begin
   max2:=d;
   min2:=c;
  end;
 {-----------------}
 if min1<min2 then
  min3:=min2
                         {Определяет максимальное число из минимальных чисел в первой и второй паре}
 else min3:=min1;
 {-----------------}
 if max1<max2 then
  begin
   max:=max2;
   max3:=max1;
  end
                         {Определяет максимальное и минимальное между 2-мя максимальными числами 2-х пар}
 else 
  begin
   max:=max1;
   max3:=max2;
 end;
 {-----------------}
  if (a<=0)or(b<=0)or(c<=0)or(d<=0) then
   write('NO')
  else
   writeln(min3,' ',max3,' ',max);
readln;
end.

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

Ввод размеров четырех волшебных палочек через пробел.
Нахождение максимального и минимального значения в первой паре чисел (переменные max1 и min1).
Нахождение максимального и минимального значения во второй паре чисел (переменные max2 и min2).
Определение максимального числа из минимальных чисел в первой и второй парах (переменная min3).
Определение максимального и минимального значения между двумя максимальными числами второй пары (переменные max и max3).
Проверка условий для определения наибольшего периметра треугольника (переменная max).
Вывод результата (переменная min3, max3, max).