Pacal: Window, Clrscr, wie Window verlassen

[der_boss]

Liebe Mitleidende,

ich versuche gerade ein altes PAscalprogramm zu verwenden: Darin wird die Prozedur Window (Unit Crt) verwendet. Wenn man danach ClrScr aufruft, löscht er aber nur das aktuelle (aktive Fenster). Wie kann ich dieses Fenster verlassen?

Ich will den ganzen Bildschirm schwarz haben.

In einem anderen Programm ist er gar nicht erst in das Window gegangen:
uses crt;
var
c:char;
BEGin
clrscr;
writeln('hallo');
window(1,5,30,30);
{gotoxy(21,31);}
writeln('im fenster');
while not keypressed do;
c:=readkey;
clrscr;
while not keypressed do;
End.


Danke.