Anonymní profil adamec – Programujte.com

čus, mám taký problém že by som chcel aby sa v Pascale vykreslil štvorec a potom sa vypísal nejaký text v textovom režime. Vec je v tom že by som tam chcel aj funkciu Clrscr a tá je v knižnici Crt. Akonáhle ale tuto knižnicu pridám tak funkcia writeln nepracuje správne a hodí mi len čierny odsek(akokeby medzery). Neviete prečo to robí, prípadne ako sa to dá opravit? Diky za pomoc.

program stvorec;
uses Graph, crt;
const gd:integer=9;
gm:integer=2;
cesta='';

BEGIN
Clrscr;
InitGraph(gd,gm,cesta);
Rectangle(200,200,300,350);
readln;
CloseGraph;
writeln('To bol štvorec.' );
readln;
END.