[Igor]

Для удобства отладки.
procedure write(a:string);
var key:integer;
begin
setcolor(255,255,255);
fillrect(0,0,getheight,getwidth);
setcolor(0,0,0);
drawtext(a,0,0);
repaint;
repeat
key:=getkeypressed;
until key=ke_key0;
end;
P.S. Писал по памяти.