Надо разобраться с меню

Program slovarb_eng_rus__rus_eng;
Uses crt;
const
     NORM=$17; { цвет невыделеного пункта }
     SEL=$70;  { цвет выделенного пункта }
     N=4;
 
 
label 5;
type spisok=record
     sl: string;
     pr: string;
     end;
FT= file of spisok;
Var  menu:array[1..N] of string;{ названия пунктов меню }
     punkt:integer;  { номер выделенного пункта }
     ch:char;        { введенный символ }
     x,y:integer;    { координаты первой строки меню }
a:ft;
    i,z,k:integer;
    s:real;
 
 
Procedure Sozd (var a: ft);
Var i,j:integer;
    zk:spisok;
    zz:integer;
    vibor:integer;
begin
 
clrscr;
reset(a);
writeln('Хотите добавить Английское слово или Русское?');
writeln('1.Английское , 2.Русское');
readln(vibor);
j:=1;
if vibor=1 then begin
 while j<>100 do
          begin
 
          write ('Slovo: ');
          readln (zk.sl);
          write ('Perevod: ');
          readln (zk.pr);
          write (a,zk);
 
          writeln ('Если вы закончили запись слов, нажмите 2');
           writeln ('Если вы НЕ закончили запись слов, нажмите 1');
          readln(zz);
          if zz=2 then exit;
          end;
          end;
          if vibor=2 then begin
 while j<>100 do
          begin
 
          write ('Slovo: ');
          readln (zk.pr);
          write ('Perevod: ');
          readln (zk.sl);
          write (a,zk);
          writeln ('Если вы закончили запись слов, нажмите 2');
           writeln ('Если вы НЕ закончили запись слов, нажмите 1');
          readln(zz);
          if zz=2 then exit;
          end;
          end;
close (a);
end;
Procedure help;
begin
 
clrscr;
 
 
 writeln ('╔═════════════════════════════════════════════════════╗');
 writeln ('║                О программе                          ║');
 writeln ('╠═════════════════════════════════════════════════════╣');
 writeln ('║ Русско-английский словарь.                          ║');
 writeln ('║ В базе по 15 слов и переводов на каждую букву       ║');
 writeln ('║ Англ.алфавита.                                      ║');
 writeln ('║ В словаре всего 780 слов.                           ║');
 writeln ('╚═════════════════════════════════════════════════════╝');
 writeln ('╔═════════════════════════════════════════════════════╗');
 writeln ('║                Как пользоваться                     ║');
 writeln ('╠═════════════════════════════════════════════════════╣');
 writeln ('║ В словарь можно добавить своё слово нажав на пункт  ║');
 writeln ('║ меню "Добавить слово в базу                         ║');
 writeln ('║ Найти перевод слова можно, нажав на пункт меню      ║');
 writeln ('║ "поиск слова".                                      ║');
 writeln ('║ Чтобы выйти из программе, нажмите Esc               ║');
 writeln ('╚═════════════════════════════════════════════════════╝');
 
 
end;
 
Procedure poisk (var a:ft);
var vibor,i:integer;
    zk:spisok;
    slovo:string;
begin
 
clrscr;
reset (a);
writeln('Выберите способ перевода 1.Eng_Rus, 2.Rus_Eng');
 readln(vibor);
  clrscr;
 if vibor=1 then begin
 writeln ('Введите слово для поиска ');
 readln (slovo);
 
 writeln ('         По запросу:',slovo);
 writeln('          Найдено:');
writeln('╔══════════════════════════════');
writeln('║       СЛОВО - ПЕРЕВОД        ');
writeln('╠══════════════════════════════');
while not eof(a) do
 begin
  read (a,zk);
  if zk.sl=slovo then
  begin
    write ('║       ',zk.sl);
    write (' - ',zk.pr,'');
 
    writeln;
    writeln ('╚══════════════════════════════');
    end;
 
 
  end;
  end;
 if vibor=2 then begin
 writeln ('Введите слово для поиска ');
 readln (slovo);
 
  writeln ('         По запросу:',slovo);
  writeln('          Найдено:');
 writeln ('╔══════════════════════════════');
 writeln ('║        СЛОВО - ПЕРЕВОД');
 writeln ('╠══════════════════════════════');
while not eof(a) do
 begin
  read (a,zk);
  if zk.pr=slovo then
  begin
    write ('║       ',zk.pr);
    write (' - ',zk.sl,'');
 
    writeln;
    writeln ('╚══════════════════════════════');
  end;
 
end;
 end;
close(a);
end;
Procedure MenuToScr;{ вывод меню на экран }
var i:integer;
begin
assign (a,'work.txt');
 
     ClrScr;
     for i:=1 to N do begin
          GoToXY(x,y+i-1);
          write(menu[i]);
     end;
     TextAttr:=SEL;
     GoToXY(x,y+punkt-1);
     write(menu[punkt]);{ выделим строку меню }
     TextAttr:=NORM;
end;
{ основная программа }
begin
     menu[1]:=' Добавить слово в базу ';
     menu[2]:=' Поиск слова ';
     menu[3]:=' Help';
     menu[4]:=' Выход ';
     punkt:=1;
     x:=5;
     y:=5; TextAttr:=NORM;
     MenuToScr;
     repeat
          ch:=ReadKey;
          if ch=char(0) then begin
               ch:=ReadKey;
               case ch of
                    chr(80):{ стрелка вниз }
                         if punkt<N then begin
                              GoToXY(x,y+punkt-1);
                              write(menu[punkt]);
                              punkt:=punkt+1;
                              TextAttr:=SEl;
                              GoToXY(x,y+punkt-1);
                              write(menu[punkt]);
                              TextAttr:=NORM;
                         end;
                    chr(72):{ стрелка вверх }
                         if punkt>1 then begin
                              GoToXY(x,y+punkt-1);
                              write(menu[punkt]);
                              punkt:=punkt-1;
                              TextAttr:=SEl;
                              GoToXY(x,y+punkt-1);
                              write(menu[punkt]);
                              TextAttr:=NORM;
                         end;
                 end;
              end
          else
               if ch=chr(13) then begin { нажата клавиша <Enter> }
                    case punkt of
                         1:sozd(a);
                         2:poisk(a);
                         3:help;
                         4:ch:=chr(27);{ выход }
                    end;
                    MenuToScr;
               end;
     until ch=chr(27);{ 27 - код <Esc> }
 
end.
begin
clrscr;
 
 
menutoscr;
 
end.