TP / 9 / 9-38

Uses Crt;

Const
MaxIndex = 10;
LenghtFIO = 28;
LenghtTel = 8;

Type
Worker = Record
FIO, Address: String[LenghtFIO];
Telephon: String[LenghtTel];
Progivaushih,Komnat: Byte;
End;

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

Procedure Header(s:String);
Begin
ClrScr;
TextColor(Yellow);
GotoXY(35,1); Write(s);
GotoXY(1,3);
TextColor(LightGray);
End;

Procedure Viewing;
Var i: Byte;
Begin
Header('Џа®б¬®ва');
TextColor(Brown);
WriteLn('” ¬Ё«Ёп €¬п ЋвзҐбвў® ':LenghtFIO,
'Ђ¤аҐб ':LenghtFIO,
'’Ґ«Ґд®­':LenghtTel,' Џа®¦ Љ®¬­');
TextColor(LightGray);
For i:=1 to MaxIndex Do
With a[i] Do
WriteLn(FIO:LenghtFIO,Address:LenghtFIO,
Telephon:LenghtTel,Progivaushih:5,Komnat:5);
ReadKey;
End;

Procedure Editing;
Begin
Repeat
Header('€§¬Ґ­Ґ­ЁҐ');
Write('‚ўҐ¤ЁвҐ ­®¬Ґа Є ав®зЄЁ: ');
ReadLn(i);
if not (i in [1..MaxIndex]) then Begin
TextColor(Brown);
WriteLn('ЌҐЇа ўЁ«м­® ўўҐ¤Ґ­ ­®¬Ґа Є ав®зЄЁ!');
WriteLn('Ћ­ ¤®«¦Ґ­ Ўлвм: 1..',MaxIndex);
TextColor(LightGray);
ReadKey;
Break;
End
Else With a[i] Do Begin
Write('”€Ћ: '); ReadLn(FIO);
Write('Ђ¤аҐб: '); ReadLn(Address);
Write('’Ґ«Ґд®­: '); ReadLn(Telephon);
Write('—Ёб«® Їа®¦Ёў ойЁе: '); ReadLn(Progivaushih);
Write('—Ёб«® Є®¬­ в: '); ReadLn(Komnat);
End;
WriteLn;
WriteLn('Enter - ¬Ґ­о');
WriteLn('‹оЎ п ¤агЈ п - Їа®¤®«¦Ёвм');
Until ReadKey=#13
End;

Procedure ClearArray;
Begin
For i:=1 to MaxIndex Do
With a[i] Do Begin
FIO:= '” ¬Ё«Ёп €¬п ЋвзҐбвў®';
Address:= '';
Telephon:= '';
Progivaushih:= 0;
Komnat:= 0;
End;
End;

Procedure Deleting;
Begin
Repeat
Header('“¤ «Ґ­ЁҐ');
Writeln('‚ўҐ¤ЁвҐ:');
Writeln('1 - зв®Ўл г¤ «Ё«Ёвм ®¤­г § ЇЁбм');
Writeln('0 - зв®Ўл г¤ «Ё«Ёвм ўбҐ § ЇЁбЁ');
Case ReadKey of
'1': Begin
Write('‚ўҐ¤ЁвҐ ­®¬Ґа Є ав®зЄЁ: ');
ReadLn(i);
With a[i] Do Begin
FIO:='” ¬Ё«Ёп €¬п ЋвзҐбвў®';
Address:= '';
Progivaushih:=0;
Komnat:=0;
End;
TextColor(Brown);
WriteLn('„ ­­лҐ г¤ «Ґ­л');
TextColor(LightGray);
End;
'0': Begin
ClearArray;
TextColor(Brown);
WriteLn('‚ᥠ¤ ­­лҐ г¤ «Ґ­л');
TextColor(LightGray);
End;
End;
Writeln;
WriteLn('Enter - ¬Ґ­о');
WriteLn('‹оЎ п ¤агЈ п - Їа®¤®«¦Ёвм');
Until ReadKey=#13
End;

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