Контрольная работа: Создание электронной записной книжки
begin
if B[p].Group<>'' then
writeln('zapis ',p,' ',B[p].Group);
end;
end;
if a='mark' then
begin
for p:=1 to 10 do
begin
if B[p].Mark<>'' then
writeln('zapis ',p,' ',B[p].Mark);
end;
end;
if a='sub' then
begin
for p:=1 to 10 do
begin
if B[p].Subject<>'' then
writeln('zapis ',p,' ',B[p].Subject);
end;
end;
if a='all' then
begin
writeln('Zapis ','Group ','Name ','Subject ','Mark ');
for p:=1 to 10 do
begin
setlength(B[p].Subject,13);setlength(B[p].Mark,13);setlength(B[p].Group,13);setlength(B[p].Name,13);
if (B[p].Subject<>'') or (B[p].Mark<>'') or (B[p].Group<>'') or (B[p].Name<>'') then
writeln('Zapis ',p,' ',B[p].Group,B[p].Name,B[p].Subject,B[p].Mark);