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;
    Button3: TButton;
    Button2: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  A: array[1..10] of Integer;
  i, j, id_min, nk, temp: 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.Button3Click(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;
        Label1.Caption:=Inttostr(temp);
      end;
    end;
    A[id_min] := A[i];
    A[i] := min;
end;
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;
else begin Edit1.ReadOnly :=True  ;
          Edit2.ReadOnly :=True     ;
          Edit3.ReadOnly :=True   ;
          Edit4.ReadOnly :=True    ;
          Edit5.ReadOnly :=True     ;
          Edit6.ReadOnly :=True      ;
          Edit7.ReadOnly :=True       ;
          Edit8.ReadOnly :=True        ;
          Edit9.ReadOnly :=True         ;
          Edit10.ReadOnly :=True         ;
end;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    Edit1.ReadOnly :=False  ;
         Edit1.Text:='';
         Edit1.Font.Color:=clGreen   ;
          Edit2.ReadOnly :=False     ;
        Edit2.Font.Color:=clGreen   ;
          Edit2.Text:='';
          Edit3.Font.Color:=clGreen   ;
          Edit3.ReadOnly :=False   ;
         Edit4.Font.Color:=clGreen   ;
          Edit3.Text:='';
          Edit4.ReadOnly :=False    ;
          Edit4.Text:='';
          Edit5.Font.Color:=clGreen   ;
          Edit5.ReadOnly :=False     ;
          Edit5.Text:='';
         Edit6.Font.Color:=clGreen   ;
          Edit6.ReadOnly :=False      ;
          Edit6.Text:='';
          Edit7.Font.Color:=clGreen   ;
          Edit7.ReadOnly :=False       ;
          Edit7.Text:='';
          Edit8.Font.Color:=clGreen   ;
           Edit9.Font.Color:=clGreen   ;
            Edit8.ReadOnly :=False   ;
               Edit8.Text:='';
           Edit10.Font.Color:=clGreen;
          Edit9.ReadOnly :=False         ;
          Edit9.Text:='';
          Edit10.ReadOnly :=False         ;
          Edit10.Text:='';
          end;

end.