Выдает ошибку Операция > не может быть применена к типам boolean и integer


Program qq;
var a,b,c,max,min,med : integer;
begin
writeln ('введите три числа');
read (a,b,c);
if c>b>a
then begin
max : = c;
med : = b;
min : = a;
End;
if b>a>c
then begin
max : = b;
med : = a;
min : = c;
End;
if a>c>b
then begin
max : = a;
med : = c;
min : = b;
End;
writeln ('наибольшее число', max);
writeln ('среднее число', med);
writeln ('наименьшее число', min);
End.

Ну так правильно пишет , нельзя писать if bgt;agt;c
then begin , пишется правильно так  if (cgt;b) and (bgt;a)then begin ,  вообщем вот держи ;

Program qq;var a,b,c,max,min,med : longint;beginwriteln (введите три числа);read (a,b,c);if (cgt;b) and (bgt;a)then beginmax := c;med := b;min := a;End;if (bgt;a) and (agt;c)then beginmax := b;med := a;min := c;End;if (agt;c) and (cgt;b)then beginmax := a;med := c;min := b;End;writeln (наибольшее число, max);writeln (среднее число, med); writeln (наименьшее число, min);End.