program LR_9;
type
cveden=record
predmet,prepod,vid_zan,den_nedel:string [25];
nomer_gr,chas,audit:integer;
end;
spisok= file of cveden;
var
spi:spisok;
cv:cveden;
x,z:string [30];
y:integer;
i:integer;
begin
assign (spi,'c:\bid3d.dat');
rewrite (spi);
for i:=1 to 2 do
begin
with cv do
begin
writeln ('введите предмет:');
readln (predmet);
writeln ('введите имя преподавателя:');
readln (prepod);
writeln ('введите вид занятий:');
readln (vid_zan);
writeln ('введите день недели:');
readln (den_nedel);
writeln ('введите номер группы:');
readln (nomer_gr);
writeln ('введите часы занятий:');
readln (chas);
writeln ('введите № аудитории:');
readln (audit);
end;
write (spi,cv);
end;
close (spi);
reset (spi);
writeln ('введите предмет:',x);
read (x);
for I:=1 to 2 do
begin
read (spi,cv);
if cv.predmet=x then
writeln (cv.prepod,' ',cv.vid_zan,' ' ,cv.den_nedel,' ',cv.nomer_gr,' ',cv.chas,' ',cv.audit );
end;
close (spi);
reset (spi);
writeln ('введите № аудитории:');
read (y);
for i:=1 to 2 do
begin
read (spi,cv);
if cv.audit=y then
writeln (cv.prepod,' ',cv.vid_zan,' ' ,cv.den_nedel,' ',cv.nomer_gr,' ',cv.chas,' ',cv.audit );
end;
close (spi);
end.