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

typeread=(read_no,read_general,read_questen,read_end);

var

Mas:TMas;

Time:integer;

KilkistPraviln:integer;

Potochne:integer;

MAX:integer;

MINUTE:integer;

procedure CreatStart(file_name:string );

implementation

uses Main, SysUtils;

procedure CreatStart(file_name:string );

var f:textfile;

s,s1:string;

tr:typeread;

begin

if (mas<>nil)then setlength(mas,0);

Potochne:=0;

KilkistPraviln:=0;

MAX:=0;

tr:=read_no;

AssignFile(f,file_name);

Reset(f);

while not eof(f) do

begin

readln(f,s);

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

tr:=read_general;

continue;