Метод через паскаль Найти наибольшее и малое значения из 3-х разных

Program zadacha;
var a, b, c, min, max: real;
begin
write(Введите 3 числа для сравнения (через пробел) : );
read (a, b, c);
min := a;
max := a;
if b gt; max then max := b;
if b lt; min then min := b;
if c gt; max then max := c;
if c lt; min then min := c;
writeln(Максимальное число : ,max);
writeln(Малое число : ,min);
readln;
end.

Программка работает, проверенно в PascalABC