Найти x=min (min (b, c), max (a, d)-a)

Program Extremum;
{Определение максимального или минимального значения
с использованием структур "выбор" и "обход".
 Вычислить x = min (min (b, c), max (a, d)-a))}
Var
a,b,c,d:Integer;      {исходные данные}
max,min:Integer;      {промежуточные значения}
x:Integer;            {результат вычисления}
Begin
{Ввод исходных данных}
WriteLn('Введите значения a,b,c,d: '); 
ReadLn(a,b,c,d);
{Решение задачи с использованием структуры "Выбор"}
If b<c        {Определяем наименьшее значение между b и c}
Then min:=b
Else min:=c;
If a>d        {Определяем наибольшее значение между a и d}
Then max:=a
Else max:=d;
If min>max    {Определяем наибольшее значение между max и min}
Then x:=min
Else x:=max-a;
{Вывод результата решения с использованием структуры "Выбор"}
WriteLn('Использование структуры "Выбор": x = ',x);
{Решение задачи с использованием структуры "Обход"}
min:=b;       {Определяем наименьшее значение между b и c}
If min>c
Then min:=c;
max:=a;       {Определяем наибольшее значение между a и d}
If max<d
Then max:=d;
x:=min;       {Определяем наибольшее значение между max и min}
If x<max
Then x:=min;
{Вывод результата решения с использованием структуры "Обход"}
WriteLn('Использование структуры "Обход": x = ',x);
ReadLn;
End.

uses crt;
{Определение максимального или минимального значения
с использованием структур "выбор" и "обход".
 Вычислить x = min (min (b, c), max (a, d)-a))}
Var
a,b,c,d:Integer;      {исходные данные}
max,min:Integer;      {промежуточные значения}
x:Integer;            {результат вычисления}
Begin
{Ввод исходных данных}
WriteLn('Введите значения a,b,c,d: ');
ReadLn(a,b,c,d);
{Решение задачи с использованием структуры "Выбор"}
If b<c        {Определяем наименьшее значение между b и c}
Then min:=b
Else min:=c;
If a>d        {Определяем наибольшее значение между a и d}
Then max:=a
Else max:=d;
If min<max-a    {Определяем наименьшее значение между max и min}
Then x:=min
Else x:=max-a;
{Вывод результата решения с использованием структуры "Выбор"}
WriteLn('Использование структуры "Выбор": x = ',x);
{Решение задачи с использованием структуры "Обход"}
min:=b;       {Определяем наименьшее значение между b и c}
If min>c
Then min:=c;
max:=a;       {Определяем наибольшее значение между a и d}
If max<d
Then max:=d;
x:=min;       {Определяем наибольшее значение между max и min}
If x>max-a
Then x:=max-a;
{Вывод результата решения с использованием структуры "Обход"}
WriteLn('Использование структуры "Обход": x = ',x);
Readln
End.