[vitalik1]

Вот тебе пример:

Program NewProjectNEW;
var
   ScrW,ScrH: integer;

procedure cls;
begin
   setcolor(0,0,127);
   fillrect(0,0,ScrW,ScrH);
   setcolor(255,255,255);
end;
 
Begin
    ScrW:=getwidth;
    ScrH:=getheight;
    cls;
    DrawText('Привет!', 5, 5);
    repaint;
    Delay(2000);
    cls;     
    DrawText('ППППППП', 5, 5); 
    Repaint;     
    Delay(999999999); 
End.