Десятигранные кубики! Вах! Кому это может быть непонятоно????

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Button2: TButton;
    Button3: TButton;
    Edit3: TEdit;
    Label3: TLabel;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    LabeledEdit4: TLabeledEdit;
    LabeledEdit5: TLabeledEdit;
    LabeledEdit6: TLabeledEdit;
    Label4: TLabel;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  KubMas = array of integer ;
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
MasLen:integer;
KM:KubMas;
i:integer;
SucCount1:integer;
FalCount1:integer;
AutsucCount1:integer;
begin
  SucCount1:=0 ;
  FalCount1:=0 ;
  AutsucCount1:=0 ;

Memo1.Lines.Clear;

try
   begin
     MasLen:= StrToInt(Edit1.Text);
     setlength(KM,MasLen);
     

     
        for i:=0 to MasLen-1 do begin
             if  MasLen > 20 then  begin
                     showmessage('Количество кубиков не может быть больше 20!');
                     Edit1.Text:='';
                     break;
             end;

            KM[i]:=(1+Random(10));
            Memo1.Lines.Add( inttostr(i+1)+ ')--------- '+ inttostr(KM[i]));
            end;

     end;
except
  On EconvertError do  begin
         showmessage('Введите количество кубиков,а не пишите всякую херню') ;
         Memo1.Lines.Clear;
      end;
end;

  try
    for i:=0 to MasLen-1 do begin
        if (strtoint(edit3.Text) < 2) or  (strtoint(edit3.Text) > 10) then begin
            showmessage('Сложность не может быть меньше 2 и больше 10');
            exit;
           end;
        if KM[i]>= strtoint(edit3.Text) then  inc(SucCount1);
        If KM[i]= 1 then   inc(FalCount1) ;
        If KM[i]= 10 then   inc(AutsucCount1) ;
      end;
    LabeledEdit1.Text:=inttostr(FalCount1);
    LabeledEdit2.Text:=inttostr(SucCount1);
    LabeledEdit3.Text:=inttostr(AutsucCount1);
    //edit1.Text:=inttostr(Autsuccount1);

   except
     on EConvertError do showmessage('Укажите сложность броска')
  end;
   
 

end;

procedure TForm1.Button2Click(Sender: TObject);
var
MasLen:integer;
KM:KubMas;
i:integer;
SucCount1:integer;
FalCount1:integer;
AutsucCount1:integer;

begin
    SucCount1:=0 ;
  FalCount1:=0 ;
  AutsucCount1:=0 ;

Memo2.Lines.Clear;

try
   begin
     MasLen:= StrToInt(Edit2.Text);
     setlength(KM,MasLen);

     
        for i:=0 to MasLen-1 do begin
             if  MasLen > 20 then  begin
                     showmessage('Количество кубиков не может быть больше 20!');
                     Edit2.Text:='';
                     break;
             end;

              KM[i]:=(1+Random(10));
              Memo2.Lines.Add( inttostr(i+1)+ ')--------- '+ inttostr(KM[i]));
            end;

     end;
except
  On EconvertError do begin
       showmessage('Введите количество кубиков,а не пишите всякую херню')  ;
       Memo1.Lines.Clear;
       end;
end;

  try
    for i:=0 to MasLen-1 do begin
        if (strtoint(edit3.Text) < 2) or  (strtoint(edit3.Text) > 10) then begin
            showmessage('Сложность не может быть меньше 2 и больше 10');
            exit;
           end;
        if KM[i]>= strtoint(edit3.Text) then  inc(SucCount1);
        If KM[i]= 1 then   inc(FalCount1) ;
        If KM[i]= 10 then   inc(AutsucCount1) ;
      end;
    LabeledEdit4.Text:=inttostr(FalCount1);
    LabeledEdit5.Text:=inttostr(SucCount1);
    LabeledEdit6.Text:=inttostr(AutsucCount1);
    //edit2.Text:=inttostr(Autsuccount1);

   except
     on EConvertError do showmessage('Укажите сложность броска')

  end;

end;

end.

Вот они, кубики.

Кира,

Угу....нет, мне кажется, или правда кому-то непонятно что там написано?