Стрелочное меню

program kadrimodul;
uses crt;
const
NORM=$17; { öâåò âûäåëåííîãî }
SEL=$70; { íå âûäåëåííîãî }
N=3;
type
FIO=record
Fam:string[16];
Name:string[16];
Otchestvo:string[16];
dolchnost:string[16];
zarplata:string[8];
end;
FT= file of FIO;
var
menu:array[1..8] of string[120];{ íàçâàíèå ïóíêòà ìåíþ }
punkt:integer; {íîìåð âûäåëåííîãî ïóíêòà}
ch:char; { ââåäåííûé ñèìâîë }
x,y:integer; { êîîðäèíàòû ïåðâîé ñòðî÷êè ìåíþ}
 
aaa:ft;
bbb:ft;
iii,zzz,qqq:integer;
sss:real;
procedure punkt1 ;
begin
clrscr;
assign (aaa,'C:\Users\ñëàâà\Desktop\8 ëàáàðîòîðíàÿ ðàáîòà\Ñïèñîê ñîòðóäíèêîâ');
assign(bbb,'C:\Users\ñëàâà\Desktop\8 ëàáàðîòîðíàÿ ðàáîòà\Ñïèñîê àðõèâà â êàäðàõ');
rewrite(aaa);
rewrite(bbb);
close(aaa);
close(bbb);
end;
procedure punkt2 (var aaa:ft);//1
var
iii,jjj:integer;
magazin:FIO;
begin
repeat
assign (aaa,'C:\Users\ñëàâà\Desktop\8 ëàáàðîòîðíàÿ ðàáîòà\Ñïèñîê ñîòðóäíèêîâ');
reset(aaa);
jjj:=1;
while jjj<>0 do
begin
clrscr;
writeln('Ââåäèòå äîëæíîñòü');
readln(magazin.dolchnost);
writeln ('Ââåäèòå ôàìèëèþ');
readln (magazin.fam);
writeln ('Ââåäèòå èìÿ');
readln (magazin.name);
writeln ('Ââåäèòå îò÷åñòâî');
readln (magazin.otchestvo);
writeln ('Ââåäèòå çàïëàòó ñîòðóäíèêè');
readln (magazin. zarplata);
seek(aaa,filesize(aaa));
write (aaa,magazin);
end;
close (aaa);
end;
procedure punkt3 (var aaa:ft);//2
var
nnn:integer;
magazin:fio;
begin
clrscr;
assign (aaa,'C:\Users\Äîì\Desktop\8\Ñïèñîê ñîòðóäíèêîâ');
Reset(aaa);
write('Íîìåð çàïèñè äëÿ çàìåíû n=');
readln(nnn);
if(nnn<1)or(filesize(aaa)<nnn) then
begin
writeln('Â ôàéëå íåò òàêîé çàïèñè!');
readln;
exit;
end;
writeln('Ââåäèòå íîâîå èìÿ ');
with magazin do
begin
write('Äîëæíîñòü ');
readln(magazin.dolchnost);
write('Ôàìèëèÿ ');
readln(magazin.fam);
write('Èìÿ ');
readln(magazin.name);
write('Îò÷åñòâî ');
readln(magazin.otchestvo);
write('Çàðïëàòà ');
readln(magazin. zarplata);
end;
seek(aaa,nnn-1);
write(aaa,magazin);
close(aaa);
writeln('0-âûéòè,1-ïðîäîëæèòü');
readln;
end;
procedure punkt4 (var aaa,bbb:ft);//3 Ïåðåìåùåíèå â àðõèâ è óäàëåíèå (óâîëüíåíèå)
var
nnn, iii: longint;
ccc: string;
eee: FIO;
begin
assign (aaa,'C:\Users\Äîì\Desktop\8\Ñïèñîê ñîòðóäíèêîâ');
assign(bbb,'C:\Users\Äîì\Desktop\8\Ñïèñîê àðõèâà â êàäðàõ');
repeat
reset(aaa);
reset(bbb);
if filesize(aaa) > 0
then
begin
clrscr;
repeat
write('Ââåäèòå íîìåð ñîòðóäíèêà, êîòîðîãî õîòèòå óâîëèòü: ');
readln(nnn);
if (nnn < 1) or (nnn > filesize(aaa)) then writeln('Çàïèñè ñ òàêèì íîìåðîì íåò, ïîâòîðèòå ââîä.')
until (nnn >= 1) and (nnn <= filesize(aaa));
seek(aaa, nnn - 1);
read(aaa, eee);
seek(bbb, filesize(bbb));
write(bbb, eee);
seek(aaa, filesize(aaa) - 1);
 
for iii := nnn - 1 to filesize(aaa) - 2 do
begin
seek(aaa, iii + 1);
read(aaa, eee);
seek(aaa, iii);
write(aaa, eee)
end;
truncate(aaa);
end
else writeln('Ôàéë íå ñîäåðæèò çàïèñåé, óäàëÿòü íå÷åãî.');
write('0 - âûéòè, 1- ïðîäîëæèòü: ');
readln(ccc);
until ccc = '0'
end;
procedure punkt5 (var aaa:ft);
Var
iii:integer;
magazin:FIO;
begin
begin
assign (aaa,'C:\Users\Äîì\Desktop\8\Ñïèñîê ñîòðóäíèêîâ');
clrscr;
reset (aaa);
writeln ('<Äîëæíîñòü|Ôàìèëèÿ|Èìÿ|Îò÷åñòâî|Çàðïëàòà>');
while not eof(aaa) do
begin
read (aaa,magazin);
write ('~', magazin.dolchnost, '~');
write ('~', magazin.fam ,'~');
write ('~', magazin.name ,'~');
write ('~', magazin.Otchestvo ,'~');
write ('~', magazin.zarplata ,'~');
writeln;
end;
close (aaa);
end;
end;
procedure punkt6 (var bbb:ft);
Var
iii:integer;
magazin:FIO;
begin
clrscr;
assign(bbb,'C:\Users\Äîì\Desktop\8\Ñïèñîê àðõèâà â êàäðàõ');
reset (bbb);
writeln ('<Äîëæíîñòü|Ôàìèëèÿ|Èìÿ|Îò÷åñòâî|Çàðïëàòà>');
while not eof(bbb) do
begin
read (bbb,magazin);
write ('~', magazin.dolchnost, '~');
write ('~', magazin.fam ,'~');
write ('~', magazin.name ,'~');
write ('~',magazin.Otchestvo ,'~');
write ('~', magazin.zarplata ,'~');
writeln;
end;
close (bbb);
end;
procedure punkt7(var aaa,bbb:ft);
var
nnn, iii: longint;
ccc: string;
eee: FIO;
begin
clrscr;
assign (aaa,'C:\Users\Äîì\Desktop\8\Ñïèñîê ñîòðóäíèêîâ');
assign(bbb,'C:\Users\Äîì\Desktop\8\Ñïèñîê àðõèâà â êàäðàõ');
repeat
reset(bbb);
reset(aaa);
if filesize(bbb) > 0
then
begin
repeat
write('Ââåäèòå íîìåð ñîòðóäíèêà, êîòîðîãî õîòèòå âîññòàíîâèòü: ');
readln(nnn);
if (nnn < 1) or (nnn > filesize(bbb)) then writeln('Çàïèñè ñ òàêèì íîìåðîì íåò, ïîâòîðèòå ââîä.')
until (nnn >= 1) and (nnn <= filesize(bbb));
seek(bbb, nnn - 1);
read(bbb, eee);
seek(aaa, filesize(aaa));
write(aaa, eee);
seek(bbb, filesize(bbb) - 1);
 
for iii := nnn - 1 to filesize(bbb) - 2 do
begin
seek(bbb, iii + 1);
read(bbb, eee);
seek(bbb, iii);
write(bbb, eee)
end;
truncate(bbb);
end
else writeln('Ôàéë íå ñîäåðæèò çàïèñåé, óäàëÿòü íå÷åãî.');
write('0 - âûéòè, 1- ïðîäîëæèòü: ');
readln(ccc);
until ccc = '0'
end;
Procedure MenuToScr;{ ????? ???? ?? ????? }
var i:integer;
begin
ClrScr;
for i:=1 to 8 do begin
GoToXY(x,y+i-1);
write(menu[i]);
end;
TextAttr:=SEL;
GoToXY(x,y+punkt-1);
write(menu[punkt]);{ ??????? ?????? ???? }
TextAttr:=NORM;
end;
{ ???????? ????????? }
begin
menu[1]:=' Ñîçäàíèå ôàéëà ';
menu[2]:=' Ïðèåì ñîòðóäíèêà íà ðàáîòó ';
menu[3]:=' Èçìåíåíèå èíôîðìàöèè î ñîòðóäíèêå ';
menu[4]:=' Óâîëüíåíèå ñîòðóäíèêà';
menu[5]:=' Ñïèñîê ñîòðóäíèêîâ';
menu[6]:=' Àðõèâ êàäðîâ';
menu[7]:=' Âîññòàíîâëåíèå ñîòðóäíèêà';
menu[8]:=' Âûõîä';
punkt:=1;
x:=25;
y:=8; TextAttr:=NORM;
MenuToScr;
repeat
ch:=ReadKey;
if ch=char(0) then begin
ch:=ReadKey;
case ch of
chr(80):{ ??????? ???? }
if punkt<8 then begin
GoToXY(x,y+punkt-1);
write(menu[punkt]);
punkt:=punkt+1;
TextAttr:=SEl;
GoToXY(x,y+punkt-1);
write(menu[punkt]);
TextAttr:=NORM;
end;
chr(72):{ ??????? ????? }
if punkt>1 then begin
GoToXY(x,y+punkt-1);
write(menu[punkt]);
punkt:=punkt-1;
TextAttr:=SEl;
GoToXY(x,y+punkt-1);
write(menu[punkt]);
TextAttr:=NORM;
end;
end;
end
else
if ch=chr(13) then begin { ?????? ??????? <Enter> }
case punkt of
1:punkt1;
2:punkt2(aaa);
3:punkt3(aaa);
4:punkt4 (aaa,bbb);
5:punkt5(aaa);
6:punkt6 (bbb);
7:punkt7(aaa,bbb);
8:ch:=chr(27);{ ????? }
end;
MenuToScr;
end;
until ch=chr(27);{ 27 - ??? <Esc> }
end.