Меню

[Боря1234567]

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

Код :

Uses CRT;
  
procedure menu2(var n: integer);
Const K=4;
StrMenu: array [1..k] of string [20]=
('1.Igra',
 '2.Info',
 '3.File',
 '4.Vixod');
 {restorecrtmode=;}
var i:integer;
Nch: char;
Begin
Clrscr;
TextColor(5);
Gotoxy(35,4);
Writeln('Menu');
TextColor(7);
For i:=1 to k do
 Begin
   GotoXY(25,6+i);
   Write(StrMenu[i]);
   end;
TextColor(2);
Gotoxy(10,6+k+2);
WriteLN('vibirite deistvie i nazmite enter');
i:=1;
TextColor(4);
Gotoxy(25,6+i);
Write(StrMenu[i]);
Repeat
Nch:= readKey;

Case ord(nch) of
      38: begin
      TextColor(1);
      GotoXY(25,6+i);
      Write(StrMenu[i]);
      Dec(i);
      If i<1 then i:=k;
      TextColor(4);
      GotoXY(25,6+i);
      Write(StrMenu[i]);
      end;

      40: begin {стрелка вверх}
      TextColor(9);
      Gotoxy(25,6+i);
      Write(StrMenu[i]);
      Inc(i);
      If i>k then i:=1;
      TextColor(4);
      gotoxy(25,6+i);
      write(strmenu[i]);
      end;
27: halt;
end;

Until ord(nch)=13;
N:=i;
procedure progg;
begin
clrscr;
WriteLN('программа');
readlN;
end;
procedure sprav;
begin
clrscr;
WriteLN('Даная программа предназначена для интерпритации настоящего пианино');
ReadLN;
end;

procedure instr;
begin
Clrscr;
WriteLN('Инструкция : Чтобы начать играть нажмите "Играть" ');
readln;
end;

procedure out;
begin
Clrscr;
WriteLN('выход');
readln;
end;
var n:integer;
begin
 
repeat
clrscr;
menu2(n);
case n of
1: progg;
2: sprav;
3: instr;

end;
Until n=4;
 
end.