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

Button3: TButton;

RadioGroup1: TRadioGroup;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

Panel1: TPanel;

Label1: TLabel;

Button4: TButton;

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

tip=record

vop:string[100];

ot1:string[20];

ot2:string[20];

end;

var

f1:file of tip;

a:tip;

Form1: TForm1;

j1,i1,k1,t,g,m,min,min1,en:integer;

ms1:array [1..100] of integer;

s:integer;

m1: array [1..4] of integer;