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

Panel1: TPanel;

Button4: TButton;

UpDown1: TUpDown;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

tip=record

vop:string[100];

ot1:string[20];

ot2:string[20];

end;

var

f2:file of tip;

a2:tip;

del:Boolean;

Form2: TForm2;

j2:integer;

implementation

uses Unit1;

{$R *.dfm}

procedure sozdanie(s:string);

begin

assign(f2,'input.dat');