2. algormiti

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    ListBox1: TListBox;
    ListBox2: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;     var  t: array[1..1000] of integer;

implementation

{$R *.dfm}


procedure arrayy(var a: Array of Integer; b:integer);
var i:integer;
begin

for i := 1 to b do
  begin
    a[i] := Random(1000);
  end;


end;

 procedure BubbleSort(var a: Array of Integer);
  var
    i, temp: Integer;
    changed: Boolean;
  begin
    changed := True;

    while changed do
    begin
      changed := False;
      for i := Low(a) to High(a)-1 do
      begin
        if (a[i] > a[i+1]) then
        begin
          temp := a[i+1];
          a[i+1] := a[i];
          a[i] := temp;
          changed := True;
        end;
      end;
    end;
  end;


  procedure insertionSort(var A:array of integer;N:integer);
var i,j,value:integer;  done:boolean;
begin
    for i := 1 to N-1 do
    begin
        value := A[i];
        j := i - 1;
        done := false;
        repeat
            if A[j] > value then
            begin
                A[j + 1] := A[j];
                j := j - 1;
                if j < 0 then
                    done := true;
            end
            else
                done := true;
        until done;
        A[j + 1] := value;
    end;
end;



procedure TForm1.Button1Click(Sender: TObject);
begin

if Combobox1.Items = 0 then

begin
arrayy(t,1000);


end;



end;

end.