Курсовая работа: Программа психологического диагностирования на выявление типа темперамента

uses Unit2;

{$R *.dfm}

procedure sozdanie(s:string); {процедура по созданию файла с вопросами}

begin

if k1<>5 then

begin

g:=1;

t:=0;

i1:=0;

end;

assign(f1,'input.dat');

reset(f1);

j1:=filesize(f1);

if not eof(f1) then

begin

if i1<j1 then

begin

seek(f1,i1);

read(f1,a);

form1.memo1.Lines.Text:=a.vop;

form1.RadioButton1.Caption:=a.ot1;

form1.RadioButton2.Caption:=a.ot2;

i1:=i1+1;

end;

if form1.radiobutton1.Checked then ms1[g]:=ms1[g]+1;

{обработка результатов}

if (t=14) or (t=28) or (t=42)then g:=g+1;

end;

if eof(f1) then en:=5;