TP / 9 / 9-26

Uses Crt;

Const
MaxIndex = 10;
LenghtFIO = 28;
Zarplata : Array[5..7] of Longint = (5000,6000,7000);

Type
Worker = Record
FIO: String[LenghtFIO];
Zex,Brigada,Razrad,poMesecam: Byte;
Summa,Seriya,Nomer: Longint;
End;

Var i: Byte;
a:array[1..MaxIndex] of Worker;

Procedure Viewing;
Begin
ClrScr;
GotoXY(30,1); Write('Џа®б¬®ва');
GotoXY(1,3);
WriteLn('” ¬Ё«Ёп €¬п ЋвзҐбвў® ':LenghtFIO,
'Џ бЇ®ав –Ґе ЃаЁЈ ¤  ђ §ап¤ ‡.а §а ‡.¬Ґб ‘㬬 ');
For i:=1 to MaxIndex Do
With a[i] Do
WriteLn(FIO:LenghtFIO,Seriya:5,Nomer:7,Zex:4,Brigada:8,
Razrad:7,Zarplata[Razrad]:7,poMesecam:6,Summa:7);
ReadKey;
End;

Procedure Editing;
Begin
Repeat
ClrScr;
GotoXY(30,1); Write('€§¬Ґ­Ґ­ЁҐ');
GotoXY(1,3);
Write('‚ўҐ¤ЁвҐ ­®¬Ґа Є ав®зЄЁ: ');
ReadLn(i);
With a[i] Do Begin
Write('”€Ћ: '); ReadLn(FIO);
Write('Џ бЇ®ав: '); ReadLn(Seriya,Nomer);
Write('–Ґе: '); ReadLn(Zex);
Write('ЃаЁЈ ¤ : '); ReadLn(Brigada);
Write('ђ §ап¤: '); ReadLn(Razrad);
Write('‡ аЇ« в  Ї® ¬Ґбпж ¬: '); ReadLn(poMesecam);
Summa:= poMesecam * Zarplata[Razrad];
End;
WriteLn;
WriteLn('Џа®ЎҐ« - ¬Ґ­о');
WriteLn('‹оЎ п ¤агЈ п - Їа®¤®«¦Ёвм');
Until ReadKey=#32
End;

Procedure ClearArray;
Begin
For i:=1 to MaxIndex Do
With a[i] Do Begin
FIO:='” ¬Ё«Ёп €¬п ЋвзҐбвў®';
Seriya:=0;
Nomer:=0;
Zex:=0;
Brigada:=0;
Razrad:=0;
poMesecam:=0;
Summa:=0;
End;
End;

Procedure Deleting;
Begin
Repeat
ClrScr;
GotoXY(30,1); Write('“¤ «Ґ­ЁҐ');
GotoXY(1,3);
Writeln('‚ўҐ¤ЁвҐ:');
Writeln('1 - зв®Ўл г¤ «Ё«Ёвм ®¤­г § ЇЁбм');
Writeln('0 - зв®Ўл г¤ «Ё«Ёвм ўбҐ § ЇЁбЁ');
Case ReadKey of
'1': Begin
Write('‚ўҐ¤ЁвҐ ­®¬Ґа Є ав®зЄЁ: ');
ReadLn(i);
With a[i] Do Begin
FIO:='” ¬Ё«Ёп €¬п ЋвзҐбвў®';
Seriya:=0;
Nomer:=0;
Zex:=0;
Brigada:=0;
Razrad:=0;
poMesecam:=0;
Summa:=0;
End;
WriteLn('„ ­­лҐ г¤ «Ґ­л');
End;
'0': Begin
ClearArray;
WriteLn('‚ᥠ¤ ­­лҐ г¤ «Ґ­л');
End;
End;
Writeln;
WriteLn('Џа®ЎҐ« - ¬Ґ­о');
WriteLn('‹оЎ п ¤агЈ п - Їа®¤®«¦Ёвм');
Until ReadKey=#32
End;

Begin
ClearArray;
Repeat
ClrScr;
WriteLn('1 - Џа®б¬®ва');
WriteLn('2 - €§¬Ґ­Ёвм');
WriteLn('3 - “¤ «Ёвм');
WriteLn('Esc - ‚л室');
Case ReadKey of
'1': Viewing;
'2': Editing;
'3': Deleting;
#27: Exit;
End;
Until 1<>1
End.