Непростая

[levadniy-andrey]

люди помогите есть одномерный массив нужно к нему сделать меню и столбчатаю диаграмму
вод код массива:
var
a:array[1..100]of real;
n,i,j,nmin,nmax:integer;
p,s,max,min,t:real;
begin
write('n=');
readln(n);
writeln('vvedite elementy');
for i:=1 to n do
read(a[i]);
writeln('massiv');
for i:=1 to n do
write(a[i]:5:1);
for i:=1 to n do
if a[i]>0 then s:=s+a[i];
writeln;
writeln('summa polojit=',s:5:1);
min:=abs(a[1]);
max:=abs(a[1]);
nmin:=1;
nmax:=1;
for i:=1 to n do
begin
if abs(a[i])>max then
begin
max:=abs(a[i]);
nmax:=i;
end;
if abs(a[i])<min then
begin
min:=abs(a[i]);
nmin:=i;
end;
end;
writeln('min=',min:5:1);
writeln('max=',max:5:1);
p:=1;
for i:=nmin+1 to nmax-1 do
p:=p*a[i];
writeln('proizved=',p:5:1);
for i:=1 to n do
for j:=2 to n do
if a[j]>a[j-1] then begin
t:=a[j];
a[j]:=a[j-1];
a[j-1]:=t;
end;
writeln('sortirovka');
for i:=1 to n do
write(a[i]:5:1);
end.

Зарание спасибо