Меню, Создание меню Опции

[qwerty]

Народ!!! Тут такое вот заданьеце! Разработать программу на TP, которое реализует многоуровневое меню приложения.
Требования:
Строка меню в верхней части экрана (окна);
Активизация меню по клавише Ф10;
Перемещение по опциям (ограничить перемещение за пределы меню)
- для горизонтального - стрелки ВЛЕВО, ВПРАВО
- для вертикального - стрелки ВВЕРХ, ВНИЗ
Выбор - клавиша <Enter> , <Space>
После выбора какого-либо пункта меню на экране вывести сообщение о том, какая опция меню выбрана.

НАРОД !!!!!!! PLZ помогите !!!! Во вторник уже надо сдавать! Я начал ее делать, но не все получается! Если вам не очень затруднит, помогите! Заранее спасибо)))

Сообщение отредактировано: qwerty - 3.12.2004 22:43

[Jahnerus]

И второе задание: цифровые часы в виде ХХ:ХХ:ХХ

Код

uses crt,dos;
var
 h,m,s,ms:word;
 st:string;

procedure add_int(var st:string; i:integer);
var
 tmp_st:string;
begin
 str(i,tmp_st);  
 if i<10 then insert('0',tmp_st,1);
 st:=st+tmp_st;
end;

begin
 clrscr;
 repeat
   st:='';
   gettime(h,m,s,ms);
   add_int(st,h);
   st:=st+':';
   add_int(st,m);
   st:=st+':';
   add_int(st,s);
   gotoxy(1,1);
   write(st);
 until keypressed;
end.