Контрольная работа: Розробка програмного продукту "Тестер"

if (s='[q]')then begin

tr:=read_questen;

MAX:=MAX+1;

setLength(Mas,MAX);

continue;

end ;

if (s='[e]')then break;

case (tr)of

read_general: begin

if (s[1]='t')then begin

s1:=copy(s,3,length(s)-2);

Form1.Caption:='Tester ['+s1+']';

end ;

end ;

read_questen: begin

if (s[1]='q')then begin

s1:=copy(s,3,length(s)-2);

mas[MAX-1].putanya:=s1;

mas[MAX-1].n:=0;

end ;

if (s[1]='v')then begin

s1:=copy(s,3,length(s)-2);

mas[MAX-1].n:=mas[MAX-1].n+1;

setLength(mas[MAX-1].Mas,mas[MAX-1].n);

mas[MAX-1].Mas[mas[MAX-1].n-1]:=s1;

end ;

if (s[1]='c')then begin

s1:=copy(s,3,length(s)-2);

mas[MAX-1].PravVid:=StrToInt(s1);