program binSorting;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, SysUtils, CustApp
  { you can add units after this };

type
  binSortingz = class(TCustomApplication)
  protected
    procedure DoRun; override;
  public
  end;
  intArray = array[0 ..999] of integer;
{ binSorting }
var intTemp:integer;
      i:integer;  //i is a counter
function randDataSet() :intArray ; begin
    repeat
          result[i]:=Random(10);
    until i=999;

end;
procedure binSortingz.DoRun;
var
  ErrorMsg: String;
begin

  { add your program here }

  // stop program loop
  Terminate;
end;

var
  Application: binSortingz;
begin
  Application:=binSortingz.Create(nil);
  Application.Title:='binSorting';
  Application.Run;
  Application.Free;
end.

