меню с открытием текстового файла

[seven123]

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

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;
n,kod: char;
begin
clrscr;
Kod:=' ';
while kod<>#27 do
               begin
               for i:=1 to 9 do begin
                                if I=K then begin
                                textbackground(5);
                                textcolor(0);
                                end
                                else begin
                                textbackground(0);
                                textcolor(15)
                                end;
                                gotoxy(1,i+1);
                                write(stor[i]);
                                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=#27 then
end;
kod:=readkey;
if kod=#0 then
          begin
          kod:=readkey;
          if kod=#80 then
          if k>1 then k:=k+1 else k:=k-1;
          if kod=#27 then
end;
end;
end.

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

[Anatole]

при нажатии клавиши Enter генерируется код #13. анализируете код клавиши на это число и выполняете необходимые действия

[zumm]

if (<условие с использованием id нужной строчки>) and (kod=#13)
then
begin
filename:=<путь к файлу который должен открываться данным пунктом меню>;
assign(input, filename); reset(input);
read(text);
OutText(text);
close(input);
end;

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