Задание на турбо паскаль c графикой

нарисовать светло-зелёный квадрат и внутри его вписать надпись (Для продолжения нажмите Еnter),цвет надписи должен менятся три раза.
Program rodnikov;
uses graph,crt;
Procedure text;
begin
textcolor (lightcyan);
gotoxy (10,5);
Write('для продолжения нажмите Enter');
delay(1500);
textcolor (lightred);
gotoxy (10,5);
Write('для продолжения нажмите Enter');
delay(1500);
end;
var device,mode:integer;
begin
device:=0;
initgraph(device,mode,'c:\program files(x86)\schoolpak');
setcolor (lightgreen);
rectangle(1,5,10,20);
closegraph;
clrscr;
text;
text;
text;
readln;
end.
Но почему-то квадрат не отображается. Помогите! В чём ошибка? (Работаю в schoolpak'e)

если не вписать closegraph то на пол экрана вылезает белый квадрат