Типы integer и smallint в free Pascal

Невиннейший текст

function minInt(a, b: integer) : integer; begin if a > b then minInt := b else minInt := a end;

Вызывает сообщение о несоответствии типов. Замена integer на smallint дела не меняет.