Программа не поддерживает работу в полноэкранном режиме - Turbo Pascal

Подскажите пжл. в чём ошибка.

PROGRAM Primer;
Uses Graph;
VAR
     a,b:Integer;
BEGIN
 a:=Detect;
 InitGraph(a,b,'');
 Writeln(GetMaxX,GetMaxY:5);
 Readln;
 CloseGraph;
END.

Программа пишет, что не поддерживает работу в полноэкранном режиме. Что исправить?

Листинг программы

Writeln(GetMaxX,GetMaxY:5);

Объяснение кода листинга программы

Вызов функции GetMaxX, которая возвращает максимальное значение по оси X.
Вызов функции GetMaxY, которая возвращает максимальное значение по оси Y.
Вывод результатов функций на экран с помощью функции Writeln.
Переменные GetMaxX и GetMaxY имеют тип Integer, то есть они предназначены для хранения целых чисел.
Вызов функции GetMaxX и GetMaxY происходит без аргументов, так как они являются статическими функциями и могут быть вызваны без передачи параметров.
Результат работы функции GetMaxX и GetMaxY будет сохранен в переменных GetMaxX и GetMaxY соответственно.
Значение переменной GetMaxX будет содержать максимальное значение по оси X, а значение переменной GetMaxY будет содержать максимальное значение по оси Y.
Вывод результатов функций на экран с помощью функции Writeln позволяет увидеть на экране значения переменных GetMaxX и GetMaxY.