Помогите, кто разбирается
Написать программу в Паскаль: найти наибольшее из 3 заданных чисел a, b и c

Простая программка для сравнения 3 чисел(min_max_1):
Program Min_Max;
var a,b,c,min,max:integer;
begin
write(Введите 3 числа для сравнения (через пробел) : );read(a,b,c);
min:=a;max:=a;
if bgt;max then max:=b;if blt;min then min:=b;
if cgt;max then max:=c;if clt;min then min:=c;
writeln(Максимальное число : ,max);
writeln(Минимальное число : ,min);
readln;
end.