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, temp_id, buf: 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
 nk:=nk+1;
 temp:=A[nk] ;
 temp_id:= nk;
 min:=A[1] ;
    for i:=nk 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;
            case temp_id of
            1:  temp:=StrToint(Edit1.Text);
            2:  temp:=StrToint(Edit2.Text) ;
            3:  temp:=StrToint(Edit3.Text)  ;
            4:  temp:=StrToint(Edit4.Text)   ;
            5:  temp:=StrToint(Edit5.Text)    ;
            6:  temp:=StrToint(Edit6.Text)     ;
            7:  temp:=StrToint(Edit7.Text)      ;
            8:  temp:=StrToint(Edit8.Text)       ;
            9:  temp:=StrToint(Edit9.Text)        ;
            10:  temp:=StrToint(Edit10.Text)       ;

            case id_min of
            2: begin Edit2.Text:= IntToStr(temp); end;
            3: begin Edit3.Text:= IntToStr(temp); end;
            4: begin Edit4.Text:= IntToStr(temp);     end;
            5: begin Edit5.Text:= IntToStr(temp);         end;
            6: begin Edit6.Text:= IntToStr(temp);             end;
            7: begin Edit7.Text:= IntToStr(temp);                 end;
            8: begin Edit8.Text:= IntToStr(temp);                     end;
            9: begin Edit9.Text:= IntToStr(temp);                         end;
           end;
            end;
       end;
{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;                 }

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
nk:=0;
    Edit1.ReadOnly :=False  ;
         Edit1.Text:='';
         Edit1.Font.Color:=clRed  ;
          Edit2.ReadOnly :=False     ;
        Edit2.Font.Color:=clRed   ;
          Edit2.Text:='';
          Edit3.Font.Color:=clRed   ;
          Edit3.ReadOnly :=False   ;
         Edit4.Font.Color:=clRed   ;
          Edit3.Text:='';
          Edit4.ReadOnly :=False    ;
          Edit4.Text:='';
          Edit5.Font.Color:=clRed   ;
          Edit5.ReadOnly :=False     ;
          Edit5.Text:='';
         Edit6.Font.Color:=clRed   ;
          Edit6.ReadOnly :=False      ;
          Edit6.Text:='';
          Edit7.Font.Color:=clRed   ;
          Edit7.ReadOnly :=False       ;
          Edit7.Text:='';
          Edit8.Font.Color:=clRed   ;
           Edit9.Font.Color:=clRed  ;
          Edit8.ReadOnly :=False        ;
           Edit10.Font.Color:=clRed ;
          Edit8.Text:='';
          Edit9.ReadOnly :=False         ;
          Edit9.Text:='';
          Edit10.ReadOnly :=False         ;
          Edit10.Text:='';
          end;

end.