pascal yardim

[xco633]

arkadaslar bi prg var elimde program bir pulldown menu bi eksigi var oda bi tus kontrol yapip girilen menuyu ortada su menuye girildi diye yazamasini istiyorum bana yardimci olabilirmisiniz
prg bu :
uses crt;
var
tus:char;
durum:integer;
procedure normalRenk;
begin
textcolor(red);
textbackground(white);
end;
procedure seciliRenk;
begin
textcolor(white);
textbackground(red);
end;

begin
clrscr;
durum:=1;
repeat
if durum = 1 then seciliRenk else normalRenk;
gotoxy (5,10);write ('Yeni ');
if durum = 2 then seciliRenk else normalRenk;
gotoxy (5,11);write ('A‡ ');
if durum = 3 then seciliRenk else normalRenk;
gotoxy (5,12);write ('Kaydet ');
if durum = 4 then seciliRenk else normalRenk;
gotoxy (5,13);write ('€kŸ ');
repeat
tus := readkey;
until tus<>#0;

if tus=#72 then begin
durum := durum-1;
if durum<1 then durum:=4;
end;
if tus=#80 then begin
durum := durum+1;
if durum>4 then durum:=1;
end;


until tus=#27

end.