Не работает перемещение в меню (стрелками)

Program KurRab;
Uses Crt;
Type
strmenu=record 
x: integer; 
s: string[14]; 
end;
Const
kol=5;
mas:array[1..kol] of strmenu=
((x:6; s:'Ввод данных'),
(x:20; s:'Сортировка'),
(x:35; s:'График'),
(x:50; s:'Вывод данных'),
(x:63; s:'Выход'));
Var
i: integer;
n: integer; 
ch: char;
procedure InputDan;
begin
end;
procedure SortDan;
begin
end;
procedure GrahpFun;
begin
end;
procedure OutputDan;
begin
end;
Begin
n:=1;
repeat 
TextColor (Red);
TextBackground (LightGray);
clrscr;
for i:=1 to kol do
begin
gotoxy(mas[i].x,3);
write(mas[i].s);
end;
TextColor (Red);
TextBackground (Black);
gotoxy(mas[n].x,3);
write (mas[n].s); 
ch:=readkey; 
case ch of 
#13: case n of 
1: InputDan; 
2: SortDan; 
3: OutputDan; 
end;
#0:begin
ch:=readkey;
case ch of 
#77:
if n<kol then
n:=n+1
else
n:=1;
#75:
if n>1 then
n:=n-1
else
n:=kol;
end;
end;
end;
until(ch= #13)and(n=5)or(ch= #27); { цикл, пока не нажата клавиша или
не выбран пункт «Выход»}
TextColor (Red);
TextBackground (LightGray);
clrscr;
end.