[Страдалецъ]

Ну вы и лентяй:

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormActivate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
Var
  Arr: Array of Integer;
  i,Min: Integer;
begin
 SetLength(Arr, 10);
 for i := 0 to Length(Arr) - 1
 do Arr[i] := Random(100) + 1;
 while Length(Arr) > 0
 do begin
    Memo1.Lines.Add('');
    for i := 0 to Length(Arr) - 1
    do Memo1.Lines[Memo1.Lines.Count - 1] := Memo1.Lines[Memo1.Lines.Count - 1] + Format('%d ',[Arr[i]]);

    Min := 0;
    for i := 1 to Length(Arr) - 1
    do if Arr[i] < Arr[Min]
       then Min := i;
    Memo1.Lines.Add(Format('%d ',[Arr[Min]]));
    for i := Min to Length(Arr) - 2
    do Arr[i] := Arr[i + 1];
    SetLength(Arr, Length(Arr) - 1);
    end;
end;

end.