Меню, заставка

uses crt;
const Kol=9;
type mas = array [1..Kol] of string[20];
const stor: mas = ('1    ','2     ','3    ','4       ','5      ','6      ','7    ','8    ','9-Vyxod');
var i,k : byte;
procedure PrintMenu(var k: byte);
var kod: char;
begin
clrscr;
k:=1;
gotoxy(4,1);
write('MENU');
 K :=1; { vydelen pervii punkt menu }
repeat
  for i:=1 to Kol do begin
     if I=K then begin
         textbackground(3);
         textcolor(9);
     end
     else begin
            textbackground(0);
            textcolor(15)
     end;
     gotoxy(1,i+1);
     write(stor[i]);
  end;
  repeat
  kod:=readkey;
  until Kod in [#13, #72, #80];
  case Kod of
  #72: begin  K := K-1; if K = 0 then K := Kol;
       end;
  #80: begin K :=K+1;  if K =10 then K := 1; end;
   end;
 until Kod = #13 ;
 
end;
begin
 repeat
   textbackground(0);
   textcolor(15);
   PrintMenu(K);
   clrscr;
   textbackground(0);
   textcolor(15);
   write('vybran variant ',k:1); readln;
   case K of
   1: {delaem chto-to};
   2: {delaem chto-to...};
   9: begin writeln('Do novix vstrech! Nazmite Enter dlja vixoda...'); readln;
      end;
   end;
 until k = 9;
end.