Здраствуйте.
Помогите построить программу гистограммы.
Есть подъезд из пяти этажей. График должен показывать сколько человек на конкреном этаже проживает.

Пока получается вот что:

clear
close data
num_col=5
&&значение кол-во столбцов гистограммы по умолчанию
@ 1,1 say "Введите номер этажа, выводимого на гистограмму" get num_col
read
clear

@ 20,3 to 20,100 &&рисуем ось абсцисс
@ 1,3 to 20,3 &&рисуем ось ординат
@1,20 say "Количество жильцов на этаже"
@29,30 say "Номер этажа"
i=1
use "F:\я твоя база данных\table1.dbf"
do while i<=num_col &&начинаем выполнение цикла do от 1 до необходимого количества столбцов (num_col)
set unique on


index on etazh to etazh_ind
browse field etazh
choice=etazh
set unique off
index on etazh to etazh_ind
count for etazh=choice to etazh &&подсчитываем количество строк в таблице, удовл. условию
@ 20-kolvo_zhil,i*10-5 to 20,i*10 && рисуем прямоугольник
@20+i,10*(i-1)+5 say choice && внизу прямоугольника подписываем
@ 20-kolvo_zhil-2,i*10-3 say str(kolvo_zhil,2)




i=i+1
enddo