unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  A: array[1..10] of Integer;
  i, j, id_min, nk: integer;
  min: integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
      A[1]:= StrToInt(Edit1.Text);
      A[2]:= StrToInt(Edit2.Text);
      A[3]:= StrToInt(Edit3.Text);
      A[4]:= StrToInt(Edit4.Text);
      A[5]:= StrToInt(Edit5.Text);
      A[6]:= StrToInt(Edit6.Text);
      A[7]:= StrToInt(Edit7.Text);
      A[8]:= StrToInt(Edit8.Text);
      A[9]:= StrToInt(Edit9.Text);
      A[10]:= StrToInt(Edit10.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
min := A[1];
for i := 1 to 9 do
  begin
    min := A[i];
    id_min := i;
    for j := (i + 1) to 10 do
    begin
      if A[j] < min then
      begin
        min := A[j];
        id_min := j;
      end;
    end;
    A[id_min] := A[i];
    A[i] := min;
end;

end;

  procedure TForm1.Button3Click(Sender: TObject);
begin
nk:=nk+1;
case nk of
1:begin Edit1.Text:=Inttostr(A[1]);  Edit1.Font.Color:=clGreen   end;
2:begin Edit2.Text:=Inttostr(A[2]);  Edit2.Font.Color:=clGreen       end;
3:begin Edit3.Text:=Inttostr(A[3]);  Edit3.Font.Color:=clGreen           end;
4:begin Edit4.Text:=Inttostr(A[4]);  Edit4.Font.Color:=clGreen               end;
5:begin Edit5.Text:=Inttostr(A[5]);  Edit5.Font.Color:=clGreen                   end;
6:begin Edit6.Text:=Inttostr(A[6]);  Edit6.Font.Color:=clGreen                       end;
7: begin Edit7.Text:=Inttostr(A[7]); Edit7.Font.Color:=clGreen                           end;
8:begin Edit8.Text:=Inttostr(A[8]);  Edit8.Font.Color:=clGreen                               end;
9: begin Edit9.Text:=Inttostr(A[9]); Edit9.Font.Color:=clGreen; end;
10:begin Edit10.Text:=Inttostr(A[10]);  Edit10.Font.Color:=clGreen end;
end;
end;
end.