Дана программа, которая вводит три целых числа в переменные a, b и c, а потом сортирует их так, чтобы в переменной a оказалось наименьшее число, в переменной b – среднее число, а в переменной c – наибольшее число.

Вот эти 3 сравнения и обмены:
f A > B then Swap(A, B);
if B > C then Swap(A, B);
if A > B then Swap(A, B);
Процедура Swap - это невстроенная в Паскаль процедура обмена 2-х переменных.