создать столбчатую диаграмму

const m=4;
      cl:array[1..m] of TColor=(clRed,clYellow,clGreen,clBlue);
var
  Form1: TForm1;
  a:array[1..50] of integer;
  n,mx:integer;
  ms:real;
implementation
 
{$R *.lfm}
 
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
WindowState:=wsMaximized;
Button1.Top:=10;
Button1.Left:=10;
Button2.Top:=40;
Button2.Left:=10;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
repeat
  n:=strtoint(inputbox('Введите количество чисел от 20 до 50 n=','','0'));
until n in [20..50];
for i:=1 to n do
 begin
  a[i]:=random(100);
  if i=1 then mx:=a[i]
  else if a[i]>mx then mx:=a[i];
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,w,x0,y0,x,y:integer;
begin
randomize;
w:=ClientWidth div(2*n);
x0:=w;
y0:=ClientHeight-50;
ms:=(y0-100)/mx;
with Canvas do
 begin
  for i:=1 to n do
   begin
    x:=x0+(i-1)*2*w;
    y:=y0-round(a[i]*ms);
    Brush.Style:=bsSolid;
    Brush.Color:=cl[1+random(4)];
    Rectangle(x,y,x+w,y0);
    Brush.Style:=bsClear;
    Textout(x+5,y0+10,inttostr(i));
    Textout(x+5,y-20,inttostr(a[i]));
   end;
  end;
end;