if name='' then showmessage('Не выбран файл для сохранения') else

begin

  assignfile(f,name);

  rewrite(f);

  writeln(f,label5.caption);

  closefile(f);

end;

end;

// Возврашение на первую форму

procedure TForm1.N2Click(Sender: TObject);

begin

application.Createform(tform2, form2);

form2.visible:=true;

form1.Hide;

end;
procedure TForm1.N3Click(Sender: TObject);

begin

Form3.Visible:=True;

end;

procedure TForm1.N4Click(Sender: TObject);

begin
Form1.Button1Click(Button1);

end;
procedure TForm1.N5Click(Sender: TObject);

begin

Form1.Button3Click(Button3);

end;

// Вывод времени и даты в строку состояния

procedure TForm1.Timer1Timer(Sender: TObject);

begin

statusBar1.Panels[0].Text:=DateToStr(Now);

StatusBar1.Panels[1].Text:=TimeToStr(Now);

StatusBar1.Panels[0].Alignment:=taCenter;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

Close;

end;

// Отчитска полей ввода

procedure TForm1.Button4Click(Sender: TObject);

begin

Label4.Caption:='';

Label5.Caption:='';
Series1.Clear;

Series2.Clear;

end;

// открытие окна Сравнение методов

procedure TForm1.Button5Click(Sender: TObject);

begin

application.Createform(tform2, form2);

form2.visible:=true;

form1.Hide;

end;
end.

Текст модуля “Сравнение методов”

Form2: TForm2;

  s:array of string;

  p,q:integer;

implementation

uses Unit1;
{$R *.dfm}

//

procedure TForm2.Button1Click(Sender: TObject);

var a,a1:mass;
n1,n2,d,i:integer;

st,fn,freq:int64;

T1,T2:real;

begin

n1:=strtoint(edit1.Text);

n2:=strtoint(edit2.Text);

d:=strtoint(edit3.Text);

Progressbar1.Max:=n2;

SetLength(a,n2+1);

SetLength(a1,n2+1);

q:=round((n2-n1)/d)+1;

SetLength(s,q+1);

p:=1;

randomize;

while n1<=n2 do

begin

 

queryperformancefrequency(freq);

  for i:=1 to n1 do

  begin

    a[i]:=random(2001)-1000;

    a1[i]:=a[i];

  end;

  queryperformancecounter(st);

 

Unit1.puzerek(n1,a);

  queryperformancecounter(fn);

  T1:=(fn-st)/freq*1000;

  queryperformancecounter(st);

  Unit1.prostvst(n1,a1);

  queryperformancecounter(fn);

  T2:=(fn-st)/freq*1000;

  s[p]:='Количество элементов '+inttostr(n1)+' время методом пузырька '+inttostr(round(T1))+' мс время методом простых вставок '+inttostr(round(T2))+' мс';

  Series1.AddXY(n1,T1);

  Series2.AddXY(n1,T2);

  Progressbar1.Position:=n1;

  p:=p+1;

  n1:=n1+d;

end;
end;

// Процедура сохранения иследования массива в текстовый файл

procedure TForm2.Button2Click(Sender: TObject);

var name:string;

f:textfile;

begin

if savedialog1.Execute then name:=savedialog1.FileName;

if name='' then showmessage('Не выбран файл для сохранения') else
begin

  assignfile(f,name);

  rewrite(f);

  for p:=1 to q do writeln(f,s[p]);

  closefile(f);

end;

end;
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form1.Show;

end;

// Возрашение к началу сортировки

procedure TForm2.Button3Click(Sender: TObject);
begin

application.Createform(tform1, form1);

form1.visible:=true;

Form2.Hide;

end;

procedure TForm2.Timer1Timer(Sender: TObject);

begin

statusBar1.Panels[0].Text:=DateToStr(Now);

StatusBar1.Panels[1].Text:=TimeToStr(Now);
StatusBar1.Panels[0].Alignment:=taCenter

end;
procedure TForm2.N4Click(Sender: TObject);

begin

Button1.Click;

end;
procedure TForm2.N5Click(Sender: TObject);

begin

Button2.Click;

end;
procedure TForm2.N7Click(Sender: TObject);

begin

Button3.Click;

end;
procedure TForm2.N9Click(Sender: TObject);

begin

Close;

end;

procedure TForm2.N2Click(Sender: TObject);

begin

Form3.Visible:=True;

end;

end.

Текст модуля о “программе”:

implementation

{$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

Close;

end;
end.