НУЖНА ПОМОЩЬ!!! В ПАСКАЛЕ С ПОСТРОЕНИЕМ СТОЛБЧАТОЙ ДИАГАРАММЫ! С ПОМОЩЬЮ МАССИВА! помогите!

ПОМОГИТЕ! НУЖНА ПОМОЩЬ В ПАСКАЛЕ С ПОСТРОЕНИЕМ СТОЛБЧАТОЙ ДИАГАРАММЫ! С ПОМОЩЬЮ МАССИВА! ЕСТЬ ГОТОВАЯ ПРОГРАММА!
ЗАДАНИЕ 7
НУЖНО ИЗМЕНИТЬ ЭТУ ПРОГРАММУ В СООТВЕТСТВИЕ С ЗАДАНИЯМИ!

uses graphabc;
const a:array [1..5] of integer=(180,140,160,155,190);
var x, y1,y2,h,max:integer;
m:real;
begin
max:=a[1];
for var i:= 2 to 5 do
if max
then max:=a[i];
h:=trunc(windowwidth/(5*2+1));
m:=(windowheight-30)/max;
x:=h;
for var i := 1 to 5 do
begin
setbrushcolor(clrandom);
y1:= windowheight-20;
y2:=y1-trunc(a[i]*m);
rectangle(x,y1,x+h,y2);
x:=x+h*2;
end;
end.

ПОМОГИТЕ ПОЖАЛУЙСТА!