Pascal_Курсовая_Работа с массивами и текстовыми файлами

uses crt;
const
menu :array[1..5] of string=(
' .:[ ВЫбор ]:. ',
' .:[ ВЫбор]:. ',
' .:[ ВЫбор ]:. ',
' .:[ ВЫбор]:. ',
' .:[ Quit ]:. ');
var
curchoice :byte;
status :byte;
temp :byte;
ch :char;
 
begin
clrscr;
curchoice:=1; status:=128; asm mov ah,01; mov cx,$2000; int $10; end;
textcolor(7); for temp:=1 to 5 do writeln(menu[temp]);
repeat
gotoxy(1,curchoice); textcolor(15); textbackground(7); write(menu[curchoice]);
gotoxy(76,1); textbackground(0); write(curchoice);
gotoxy(76,2); write(' '); gotoxy(76,2); write(status);
if keypressed then
case readkey of
#72: if curchoice>1 then begin
textcolor(7); textbackground(0); gotoxy(1,curchoice);
write(menu[curchoice]); dec(curchoice);
end;
#80: if curchoice<5 then begin
textcolor(7); textbackground(0); gotoxy(1,curchoice);
write(menu[curchoice]); inc(curchoice);
end;
#27: status:=5;
#13: status:=curchoice;
end;
until status=5;
asm mov ah,01; mov cx,$0E0D; int $10; end; textcolor(7); textbackground(0);
end.