TP / 9 / 9-51

program Lab9;

uses Crt;

const
Title = ' ” ¬Ё«Ёп €¬п ЋвзҐбвў® „ в  ஦¤Ґ­Ёп Ђ¤аҐб ’Ґ«Ґд®­ ';
Q = 10;
L = 18;

type
Student = Record
Class, Angl, Mat, Inf: Byte;
FIO, Data, Addr, Tel: String[L];
end;

var
a:array[1..Q] of Student;

procedure Ekran(str:String);
begin
ClrScr;
GotoXY(32,1);
Write(str);
WriteLn;
WriteLn;
end;

procedure Prosmotr;
var
i: Byte;
begin
Ekran('Џа®б¬®ва');
WriteLn(Title);
WriteLn('Љ« бб ':L,'Ђ­Ј«Ё©бЄЁ© ':L,'Њ вҐ¬ вЁЄ  ':L,'€­д®а¬ вЁЄ ':L);
for i:=1 to Q do
if a[i].Class > 0 then
with a[i] do begin
WriteLn(FIO:L,Data:L,Addr:L,Tel:L);
WriteLn(Class:L,Angl:L,Mat:L,Inf:L);
end;
ReadLn;
end;

procedure Redact;
var
i: Byte;
begin
repeat
Ekran('ђҐ¤ ЄвЁа®ў ­ЁҐ');
Write('Ќ®¬Ґа иЄ®«м­ЁЄ : ');
ReadLn(i);
if not (i in [1..Q]) then begin
WriteLn('Ќ®¬Ґа ¤®«¦Ґ­ Ўлвм: 1..',Q);
ReadLn;
break;
end
else with a[i] do begin
Write('”€Ћ: '); ReadLn(FIO);
Write('„ в  ஦¤Ґ­Ёп: '); ReadLn(Data);
Write('Ђ¤аҐб: '); ReadLn(Addr);
Write('’Ґ«Ґд®­: '); ReadLn(Tel);
Write('Љ« бб: '); ReadLn(Class);
Write('Ђ­Ј«Ё©бЄЁ©: '); ReadLn(Angl);
Write('Њ вҐ¬ вЁЄ : '); ReadLn(Mat);
Write('€­д®а¬ вЁЄ : '); ReadLn(Inf);
end;
WriteLn;
WriteLn('Esc - ¬Ґ­о');
until ReadKey = #27
end;

procedure Udalenie;
var
i: Byte;
begin
repeat
Ekran('“¤ «Ґ­ЁҐ');
Writeln('O - г¤ «Ёвм ®¤­г § ЇЁбм');
Writeln('A - г¤ «Ёвм ўбҐ § ЇЁбЁ');
Case UpCase(ReadKey) of
'O': begin
Write('Ќ®¬Ґа Є ав®зЄЁ: ');
ReadLn(i);
with a[i] do Class:= 0;
WriteLn('“¤ «Ґ­®!');
end;
'A': begin
for i:=1 to Q do
with a[i] do Class:= 0;
WriteLn('‚ᥠ㤠«Ґ­®!');
end;
end;
WriteLn('Esc - ¬Ґ­о');
until ReadKey = #27
end;

begin
repeat
Ekran('‹ Ў®а в®а­ п 9');
WriteLn('1 - Џа®б¬®ва');
WriteLn('2 - ђҐ¤ ЄвЁа®ў ­ЁҐ');
WriteLn('3 - “¤ «Ґ­ЁҐ');
WriteLn('Esc - ‚л室');
Case ReadKey of
'1': Prosmotr;
'2': Redact;
'3': Udalenie;
#27: Exit;
end;
until False;
end.