Найти максимальное и минимальное из двух чисел (проверить, равны ли числа)

If a gt; b then writeln(a gt; b)
else
if a lt; b then writeln(a lt; b)
else
writeln(a = b);