Pascal ABCПомогите пожалуйста

var

 a, c: Integer;

begin

 WriteLn ('Введите возраст пассажира: ');

 ReadLn (a);

 if a gt;= 18 then

   c := 10

 else if a gt;= 12 then

   c := 6

 else if a gt;= 6 then

   c := 4

 else

   c := 0;

 WriteLn ('Цена завтрака = ', c, ' евро');

 ReadLn;

end.