помогите доделать программу(прога с меню)

[seven]

нужно сделать программу чтобы при выборе строчки открывался файл с текстовой информацией
я начал делать вот что получилось

uses crt;
type mas = array [1..9] of string[20];
const stor: mas = ('1','2','3','4','5','6','7','8','9' );
var i,k: byte;
kod: char;
begin
clrscr;
writeln(' название программы');
Kod:=' ';
while kod<>#27 do
begin
for i:=1 to 9 do begin
if I=K then begin
textbackground(1);
textcolor(0);
end
else begin
textbackground(0);
textcolor(15)
end;
gotoxy(1,i+1);
write(stor);
end;

kod:=readkey;
if kod=#0 then
begin
kod:=readkey;
if kod=#72 then
if k>1 then k:=k-1 else k:=9;
if kod=#0 then
end;
end;
end.
c:=readkey;
if c=#80 then
begin
gotoXY(10,whereY-1);
write(s);
end;
if c=#72 then
begin
gotoXY(10,whereY+1);
write(s);
end;

нужно связать это меню с текстовыми файлами,хотябы помогите чтобы прога реагировала на нажатие клавиши enter при выборе строчки

[dr.Jekill]

В первую очередь, seven, Вы получаете первое и последнее устное замечание: Называйте темы правильно! Название темы должно максимально четко отражать суть вопроса. "помогите доделать программу(прога с меню)" - недостаточно.

нужно связать это меню с текстовыми файлами,хотябы помогите чтобы прога реагировала на нажатие клавиши enter при выборе строчки

В чем проблема? Лови так же через редкей клавишу #13 (или $0D), анализируй через case выбранную строку и запускай нужный файл.

[seven]

В чем проблема? Лови так же через редкей клавишу #13 (или $0D), анализируй через case выбранную строку и запускай нужный файл.

извините насчёт правил.
вот все говорят через case,ктонибудь могу бы наглядно показать?я врубится немогу никак...

[atavin-ta]

case <var> of
value1:begin
end;
value2:begin
end;
end;

[seven]

case <var> of
value1:begin
end;
value2:begin
end;
end;

в какую часть проги это вставлять?поясни плиз...

[Хыиуду]

Там, где ты отлавливаешь нажатие кнопки. А вообще учебники неплохо бы почитать. Это азы Паскаля.