Логическая операция - PascalABC.NET

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

Даны три числа: А,В,С. Проверить истинность высказывания. число В находится между числами А и С. Задачу кажется сделать смог:

var
bol,bol1,bol2,bol3,bol4,bol5,bol6:boolean;
a,b,c:integer;
begin
readln(a,b,c);
bol1:=a<b;
bol2:=b<c;
bol:=bol1 and bol2;
bol3:=c<b;
bol4:=b<a;
bol5:=bol3 and bol4;
bol6:=bol or bol5;
write(bol6);
readln
end.

Скажите правильно ли я сделал, ну и можно ли сделать код проще и меньше?

Решение задачи: «Логическая операция»

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

if((b>a)and(b<c)) or((b>a))and(b<c)) 
tnen write('Yes') else write('No');

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

b > a - проверка, что значение переменной b больше значения переменной a.
b < c - проверка, что значение переменной b меньше значения переменной c.
tnen - это ошибка, возможно, вместо этого должен быть оператор условия или ключевое слово.
write('Yes') - вывод строки Yes, если выполняются условия.
write('No') - вывод строки No, если не выполняются условия.