Создать графическое меню, чтобы там можно было стрелками выбирать вариант

program p1;
uses Crt;
var a,b,r:string;
begin;
repeat
clrscr;
write('Введите день недели ');
readln(a);
if a=('понедельник')
then begin writeln('1)биология');
writeln ('2)география');
writeln ('3)геометрия');
writeln ('4)русский язык');
writeln ('5)литература');
writeln ('6)английский язык');
end
else;
if a=('вторник')
then begin writeln('1)алгебра');
writeln ('2)информатика');
writeln ('3)английский язык');
writeln ('4)физкультура');
writeln ('5)истори');
writeln ('6)физика');
end
else;
if a=('среда')
then begin writeln('1)физкультура');
writeln ('2)французкий язык');
writeln ('3)геометрия');
writeln ('4)обж');
writeln ('5)русский язык');
writeln ('6)литература');
end
else;
if a=('четверг')
then begin writeln('1)русский язык');
writeln ('2)обществознание');
writeln ('3)литература');
writeln ('4)физкультура');
writeln ('5)французкий');
writeln ('6)русский язык');
end
else;
if a=('пятница')
then begin writeln('1)алгебра');
writeln ('2)география');
writeln ('3)английский язык');
writeln ('4)английский язык');
writeln ('5)биалогия');
writeln ('6)алгебра');
writeln ('7)музыка');
end
else;
if a=('суббота')
then begin writeln('1)изо');
writeln ('2)физика');
writeln ('3)история');
writeln ('4)информатика');
end
else;
if a=('воскресенье')
then begin writeln('мы не учимся');
end
else;
writeln('это всё?' );
readln(b);
until b=('да');
end.