[Strelok]

Program NewProjectNEW;  
Begin  
    DrawText('Привет!', 5, 5);
    Repaint;     
    Delay(2000);  
    fillrect(0,0,ScrW,ScrH);
    DrawText('ППППППП', 5, 5);  
    Repaint;      
    Delay(999999999);  
End. 


Так?