MENÜ PROGRAMI

uses crt;
var
     sec:char;
begin
  repeat
   clrscr;
   gotoxy(30,7);  writeln(' M E N š ');
   gotoxy(30,8);  writeln('---------');
   gotoxy(30,10); writeln('[ 1 ] kayt girisi');
   gotoxy(30,12); writeln('[ 2 ] kayt listesi');
   gotoxy(30,14); writeln('[ 3 ] kayt arama');
   gotoxy(30,16); writeln('[ 4 ] kayt silme');
   gotoxy(30,18); writeln('[ 5 ] kayt dzeltme');
   gotoxy(30,20); writeln('[ESC] program sonu');
   repeat
  sec:=readkey;
  Until sec In ['1'..'5',#27];
  case sec of
   '1':{kaytyap};
   '2':{listeleme};
   '3':{arama};
   '4':{silme};
   '5':{dzeltme};
  end;
 Until sec=#27;
end.