создание меню с помощью мыши, укажите плз. ошибку. Опции

[Tima1989]

у меня есть процедура меню:

procedure menu;
var gd,gm:integer;
begin
gd:=0;
initgraph(gd,gm,'c:\turbo\');
rectangle(250,200,350,220);
outtextxy(287,205,'ввод');
end;

и главная программа:

begin
gd:=0;
initgraph(gd,gm,'c:\turbo\');
if graphresult<>grok then  writeln('error') else
if ( initmouse=true ) then begin
menu;
showmouse;
if (buttonpressed=1) and (mousein(250,200,350,220)=true)
then <запуск процедуры>
    end;
readln;
end.

Модуль для работы с мышью я взял с FAQ, мне нужно чтобы при наведении на описанный в процедуре меню прямоугольник, загружалась процедура, допустим ввода. Подскажите что я делаю не так...не работает!

М

Ставь теги!! Привык, чтоб за тебя делали??.. Lapp