Очистить вывод в окне graphabc

clrscr();

uses graphABC,crt;
type point=record
           x,y:integer;
           end;
procedure menu;
begin
clearwindow;
setbrushstyle(bsClear);
textout(10,0,'Выберите действие:');
textout(10,20,'1-Красный квадрат');
textout(10,40,'2-Синий круг');
textout(10,60,'3-Зеленый треугольник');
textout(10,80,'Другое кроме Enter выход');
end;
var w:char;
    xc,yc:integer;
    p:array[1..4] of point;
begin
hidecursor;
xc:=windowwidth div 2;
yc:=windowheight div 2;
repeat
menu;
w:=readkey;
case w of
'1':begin
    clearwindow;
    setpencolor(clRed);
    setbrushcolor(clRed);
    rectangle(xc-100,yc-100,xc+100,yc+100);
    readln;
    menu
    end;
'2':begin
    clearwindow;
    setpencolor(clBlue);
    setbrushcolor(clBlue);
    circle(xc,yc,100);
    readln;
    menu
    end;
'3':begin
    clearwindow;
    setpencolor(clGreen);
    setbrushcolor(clGreen);
    p[1].x:=xc+round(100*cos(pi/2));
    p[1].y:=yc-round(100*sin(pi/2));
    p[2].x:=xc+round(100*cos(7*pi/6));
    p[2].y:=yc-round(100*sin(7*pi/6));
    p[3].x:=xc+round(100*cos(11*pi/6));
    p[3].y:=yc-round(100*sin(11*pi/6));
    p[4]:=p[1];
    polygon(p,4);
    readln;
    menu
    end;
else if w<>#13 then exit
end;
until not(w in ['1'..'3',#13])
end.

uses graphABC;
var xc,yc,key:integer;
    p:array of point;
procedure menu;
begin
clearwindow;
setbrushcolor(clWhite);
textout(10,0,'Выберите действие:');
textout(10,20,'1-Красный квадрат');
textout(10,40,'2-Синий круг');
textout(10,60,'3-Зеленый треугольник');
textout(10,80,'4-Выход');
end;
 
procedure rect;
begin
clearwindow;
setpencolor(clRed);
setbrushcolor(clRed);
setbrushstyle(bsSolid);
rectangle(xc-100,yc-100,xc+100,yc+100);
end;
 
procedure krug;
begin
clearwindow;
setpencolor(clBlue);
setbrushcolor(clBlue);
circle(xc,yc,100);
end;  
 
procedure trg;
begin
clearwindow;
setpencolor(clGreen);
setbrushcolor(clGreen);
setlength(p,4);
p[0].x:=xc+round(100*cos(pi/2));
p[0].y:=yc-round(100*sin(pi/2));
p[1].x:=xc+round(100*cos(7*pi/6));
p[1].y:=yc-round(100*sin(7*pi/6));
p[2].x:=xc+round(100*cos(11*pi/6));
p[2].y:=yc-round(100*sin(11*pi/6));
p[3]:=p[0];
polygon(p);
end;
 
procedure KeyDown(Key: integer);
begin
case Key of
VK_Return:menu;
VK_NumPad1:rect;
VK_NumPad2:krug;
VK_NumPad3:trg;
VK_NumPad4:halt
end;
end;
 
begin
xc:=windowwidth div 2;
yc:=windowheight div 2;
menu;
OnKeyDown := KeyDown;
end.

Program Graphik ;
Uses
  Graph , Crt ;
Type
  Mas1=array[1..50] of Real ;
  Mas2=array[1..50] of String[ 150 ] ;
Const
  Z1=20; {количество данных}
  mas : array[1..8] of string = ('Dub','Bereza','Iva','Topol','Yasen','Lipa','Sosna','Klen');
Var
  Y:MAS2;
  Driver , Mode : Integer ;
  Z: array[ 1..Z1 ] of Integer ;
  T , l : String[ 150 ] ;
  A , f: array[ 1..Z1 ] of real;
  Max , Sum : Real ;
  Y0 , Y1 , Y2 , H , PR , X , RX ,Osn , Ras , i , N , Y3 , Y4 :Integer ;
 
 
{Круговая диаграмма}
Procedure Sect ;
  Begin
    ClearDevice ;
    OutTextXY( 100 , 30 , 'Krugovaya diagramma znacheniy' ) ;{расчет общей суммы}
    Sum := 0 ;
    For i := 1 to N do
      Sum := Sum + A[ i ] ;
    For i:=1 to N do
      f[ i ] := ( A[ i ]*100/sum ) ;
    For i:=1 to N do
      Z[ i ] := Round( A[ i ]*360/Sum ) ;
    Y0 := 0 ;
    {рисование сектора}
    For i := 1 to N do
      begin
        SetFillStyle( 2 , i + 1 ) ;
        PiesLice( 325 , 190 , Y0 , Y0 + Z[ i ] , 140 ) ;
        Y0 := Y0 + Z[ i ] ;
      end ;
    Y1 := 50 ;
    Y2 := 70 ;
    Y3 :=500 ;
    Y4 :=540 ;
    For i:=1 to N do
      begin
        SetFillStyle( 2 , i + 1 ) ;
        Bar3d( 20 , Y1 , 60 , Y2 , 5 , True ) ;
        Str( A[ i ] : 6 : 1 , T ) ;
        OutTextXY( 70 , Y1 + 10 ,  T ) ;
        Str( f[ i ] : 6 : 2 , l );
        OutTextXY( 120 , Y1 + 10 , '-' + l + '%');
        Y1 := Y1 + 30 ;
        Y2 := Y2 + 30 ;
        SetFillStyle( 2 , i + 1 ) ;
        Bar3d( Y3 , Y1 , Y4 , Y2 , 5 , True ) ;
        Str( A[ i ] : 6 : 1 , T ) ;
        OutTextXY( Y4+10 , Y1 + 10 ,  Y[i]) ;
      end ;
     ReadLn ;
  End;
 
 
{Столбчатая диаграмма}
Procedure Stol ;
  Begin
    ClearDevice ;
    OuttextXY( 100 , 30 ,'Sootnoshenie rosta' ) ;
    X := 50 ;
    RX := 30 ;             {ширина столбика}
    RAS := Round( 400 / n ) ;  {расстояние между столбиками}
    OSN := 280 ;           {координата основания}
    SetFillStyle( 3 , 1 ) ;
    Bar3d( X , OSN , X + RAS*( N - 1 ) + RX , OSN + 35 , 10 , True ) ;
    SetTextStyle( 4 , 0 , 2 ) ;
    PR := 0 ;
   { OutTextXY( 100 , 20 , ' ' ) ;}
    Max := A[ 1 ] ;
    For i := 1 to N do
      If A[ i ] > max then max := A[ i ] ;
        sum := 0 ;
    For i := 1 to N do
      Sum := Sum + A[ i ] ;
    For i := 1 to N do
      f[ i ] := A[ i ]*100/Sum ;
    For i := 1 to N do
      begin
        OutTextXY( X + 2 , osn + 5 , Y[ i ] ) ;
        H := Trunc( A[ i ]*200/max ) ;    {высота}
        SetFillStyle( 9 , i + 11 ) ;
        Bar3d( X , 280 - H , X + RX , OSN , 10 , Topon ) ;
        Str( a[ i ] : 6 : 1 , t ) ;
        OutTextXY( X , 280 - H - 33 , T ) ;
        SetTextstyle( 4 , 0 , 1 ) ;
        Str( f[ i ] : 6 : 2 , l ) ;
        OutTextXy( X - 10 , 280 - H - 20 , l + '%' ) ;
        X := X + RAS ;
      end ;
    ReadLn ;
  End ;
 
 
Begin
  ClrScr ;
  Write( ' Введите число сравниваеммых элеметов:':30 ) ;
  Readln( N ) ;
  Writeln( 'Введите высоты деревьев':30 ) ;
  For i := 1 to N do
    begin
      Write ( mas[i], '='  ) ;
      Readln( A[ i ] ) ;
    end ;
  readln;
 { For i := 1 to N do
    begin
      Writeln;
      Write( ' ' , i ,')',Y[i], '=');
      Readln(A[i]);
    end;
  readln;}
  Driver := Detect ;
  InitGraph( Driver , Mode ,'' ) ;
  Stol ;
  Sect ;
  CloseGraph ;
End.