Работа с внешними файлами, помогите решить задачку plizzzz Опции

[Артём]

Здрасте всем
помогите пожалуйста вот стакой задачкой
создать файл, содержащий сведения об аудиторных занятиях (предмет, преподаватель, номер группы, вид занятий, день недели, часы занятия, аудитория).
а) выбрать все занятия по данному предмету
б) упорядочить занятие каждой группы по дням недели.
в) выбрать все занятия в данной аудитории

[Артём]

вот

Код

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.

надо упорядочить зантия каждой гр. по дням недели

Сообщение отредактировано: volvo - 30.12.2005 13:10