Musisz zawsze zadeklarować 3 zmienne. Tutaj masz przykładowy kodzik:
program grafika;
uses Graph;
var Karta, Tryb, x, y, z : Integer;
napis : string;
begin
DetectGraph(Karta, Tryb);
InitGraph(Karta, Tryb, 'c:\bp\bgi');
if GraphResult<>grOk then halt;
SetColor(yellow); { ustawiam kolor napisu, figur }
SetBkColor(blue); { ustawiam tlo }
{ wylosujmy cos w rozsadnych granicach - chodzi mi o zmienna z ;D }
randomize;
x:=random(11);
y:=0; { 0 - domyslny - poziomo, 1 to pionowo }
z:=random(3); {wielkosc czcionki}
SetTextStyle(x,y,z);
Napis:='Graph nie jest trudny';
{ wypisz po srodku ekranu }
OutTextXY(GetMaxX div 2-TextWidth(Napis) div 2,GetMaxY div 2-TextHeight(Napis) div 2,
Napis);
readln;
CloseGraph;
End.