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

write(':');

writeln(A.Mark,' ballov');

end;

procedure WriteSt(var A:TSt);

begin

write('group: ');

readln(A.Group);

write('Name: ');

readln(A.Name);

write('Subject: ');

readln(A.Subject);

write('Mark: ');

readln(A.Mark);

writeln;

end;

var B:TASt;

a:string;p:integer;

begin

writeln('Vas privetstvuet NoteBook v.1.0b Sozdateli: studenty gruppy 520361: Konova Elena, Pivovarov Nikolay, Kharlamov Alexey');

writeln;

writeln('Command "new"-redaktirovanie zapisi,"out"-vyvod tekuschey zapisi, "<cifra>"-vvod nomera zapisi,"help"-vyzov spravki, "all"-pokazat vse zapisi, "name"-pokazat imena, "group"-pokazat nomera grupp, "mark"-pokazat ocenki, "sub"-pokazat predmety, "q"-vyhod');

p:=0;

repeat

readln(a);

if a='new' then

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

begin

WriteSt(B[p]);

writeln('zapis ',p,' sohranena');