or (a='9') or (a='10') then
begin
p:=strtoint(a);
writeln('current record ',p);
end;
if a='help' then
write ('command "new"-redaktirovanie zapisi,"out"-vyvod tekuschey zapisi,"<cifra>"-vvod nomera zapisi, "all"-pokazat vse zapisi, "name"-pokazat imena, "group"-pokazat nomera grupp, "mark"-pokazat ocenki, "sub"-pokazat predmety, "q"-vyhod');
if a='name' then
begin
for p:=1 to 10 do
begin
if B[p].Name<>'' then
writeln('zapis ',p,' ',B[p].Name);
end;
end;
if a='group' then
begin
for p:=1 to 10 do
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);
end;
end;
until a='q';
writeln('Chto zh vy nadelali...');
readln;
end.
[1] После завершения работы введенные данные не сохраняются.