begin
1:clrscr;
window(0,0,80,25);
window(1,1,27,13);
textcolor(15);
for i:=1 to 25 do begin
gotoxy(1+i,2);
write(#196);
end;
gotoxy(1+i,2);
write(#191);
p:=i;
for i:=1 to 11 do begin
gotoxy(p+1,i+2);
write(#179);
end;
gotoxy(p+1,i+2);
write(#217);
y:=i;
for i:=25 downto 2 do begin
gotoxy(n+i,y+2);
write(#196);
end;
p:=n+i;
gotoxy(2,2);
write(#218);
for i:=1 to 11 do begin
gotoxy(2,2+i);
write(#179);
end;
for i:=1 to 25 do begin
gotoxy(1+i,4);
write(#196);
end;
gotoxy(p,y+2);
write(#192);
gotoxy(2,4);
write(#195);
gotoxy(26,4);
write(#180);
gotoxy(13,3);
write('MENU');
kod:=' ';
k:=0;
y:=5;
while kod<>#13 do begin
gotoxy(4,5); if k=0 then textcolor(4) else textcolor(15); write('Sozdanie faila');
gotoxy(4,6); if k=1 then textcolor(4) else textcolor(15); write('Chtenie dannih');
gotoxy(4,7); if k=2 then textcolor(4) else textcolor(15); write('Dobavlenie zapisi');
gotoxy(4,8); if k=3 then textcolor(4) else textcolor(15); write('Sortirovka dannih');
gotoxy(4,9); if k=4 then textcolor(4) else textcolor(15); write('Redactirovanie zapisi');
gotoxy(4,10); if k=5 then textcolor(4) else textcolor(15); write('Diagramma');
gotoxy(4,11); if k=6 then textcolor(4) else textcolor(15); write('Vihod');
gotoxy(1,4);
gotoxy(1,k+5);
kod:=readkey;
if kod=#0 then begin
gotoxy(1,y+2+k);
textcolor(4);
kod:=readkey;
if kod=#72 then
if k=0 then k:=6 else k:=k-1;
if kod=#80 then
if k=6 then k:=0 else k:=k+1;
textcolor(4);
gotoxy(1,y+2+k);
end;
end;
case k of
0:begin sozd; goto 1; end;
1:begin chten; goto 1; end;
2:begin dobavl; readln; goto 1; end;
3:begin sortirovka; goto 1 ; end;
4:begin redact; goto 1; end;
6:end;
end.