Вывод текста в графическом режиме - Free Pascal

Покажите пожалуйста как вывести в графическом режиме текст, чтобы было красиво. Мне нужно вывести фамилию Петров

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

uses graph,wincrt;
var x,y:integer;
begin
initgraph(x,y,'');
settextstyle(4,0,8);
setcolor(12);
outtextXY(200,100,'Петров');
readkey
end.

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

uses graph,wincrt; - подключаем модули graph и wincrt для работы с графическим режимом Windows
var x,y:integer; - объявляем две переменные типа integer для хранения координат X и Y
begin - начинаем выполнение программы
initgraph(x,y,''); - инициализируем графический режим с заданными координатами X и Y, а также пустым названием окна
settextstyle(4,0,8); - устанавливаем стиль текста: размер 4, межстрочный интервал 0, выравнивание по левому краю, шрифт 8
setcolor(12); - устанавливаем цвет текста - 12 (красный)
outtextXY(200,100,'Петров'); - выводим текст Петров на экран по координатам X=200, Y=100
readkey - ожидаем нажатия клавиши на клавиатуре
end. - заканчиваем выполнение программы