Вывести на экран гистограмму успеваемости учеников класса

uses graphabc,crt;
const n=4;
      coL:array[1..n]of integer=(clyellow,clgreen,clblue,clblack);
      naz:array[1..n] of string=('пятерок','четверок','троек','двоек');
var oc:array[1..4]of integer;
    usp:array[1..4]of real;
    i:integer;
    mx,ms:real;//максимум и масштаб по вертикали
    sum:integer;
    x1,x2:integer;
    y1,y2:integer;
    w:integer;//ширина столбцов
    st:string;
begin
 writeln('Введите количество оценок 5,4,3,2');
 sum:=0;
 for i:=1 to 4 do
  begin
   readln(oc[i]);
   sum:=sum+oc[i];
  end;
 clrscr;
 hidecursor;
 setwindowsize(550,500);
 centerwindow;
 x1:=40;
 x2:=360;
 y1:=20;
 y2:=480;
 w:=round((x2-x1)/9);
 mx:=0;
 for i:=1 to 4 do
  begin
   usp[i]:=oc[i]/sum*100;
   if usp[i]>mx then mx:=usp[i]
  end;
 ms:=(y2-y1-50)/mx;
 rectangle(x1,y1,x2,y2);
 x1:=x1+w;
 for i:=1 to 4 do
  begin
   setbrushstyle(bsSolid);
   setbrushcolor(col[i]);
   rectangle(x1,y2-round(usp[i]*ms),x1+w,y2);
   rectangle(x2+10,y1+(2*i-1)*20,x2+70,y1+2*i*20);
   str(usp[i]:0:2,st);
   setbrushstyle(bsClear);
   textout(x1,y2-round(usp[i]*ms)-20,st);
   textout(x2+80,y1+(2*i-1)*20+5,naz[i]);
   x1:=x1+2*w;
  end;
  end.