Контрольная работа: Создание электронной записной книжки

writeln('Vvedite novuyu komandu');

end

else writeln('choose the record');

if a='out' then

if (p>0) and (p<11) then

begin

OutputSt(B[p]);

writeln;

writeln('Vvedite novuyu komandu');

end

else writeln('choose the record');

if (a='1') or (a='2') or (a='3') or (a='4') or (a='5') or (a='6') or (a='7') or (a='8')

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