Реферат: Иследование методов сортировки Метод пузырька и Метод простых вставок

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