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

Обычная программа для сопоставления 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.