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

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

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

Другие модули подключаются. Сообщение от линкера ld кажется не может найти -lvga. (точнее не могу - это на работе) Может ему какого драйвера не хватает? Если так - где его взять?