[skype.b13]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66

unit Unit2;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   type   TForm2 = class(TForm)     Button1: TButton;     Button2: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form2: TForm2;   implementation   {$R *.dfm}   procedure TForm2.Button1Click(Sender: TObject); begin Close; end;   procedure TForm2.Button2Click(Sender: TObject); Label lb1,15; Var i,k,b,a:integer; s:String; begin ShowMessage('Привет партнеру!'+#13+'Я рад, что Вы состязаетесь со мной.' +#13+#13+'Отгадайте мое любимое число!'+#13+'Для справки: оно меньше тысячи'); lb1:Randomize; b:=Random(1000); i:=0; 15: s:= InputBox('Заголовок','Ввод',''); Val (s,a,k); if k<>0 then Goto 15;   Repeat Val(s,a,k);   if a<b then a:=Round(StrToInt(InputBox('Ввод числа','Больше','')));   if a>b then a:=Round(StrToInt(InputBox('Ввод числа','Меньше','')));   i:=i+1;   until a=b;   case i of 1..9:ShowMessage('Это случайность!'); 10:ShowMessage('Чудесно!'); 11,12:Showmessage('Очень хорошо!'); 13,14:ShowMessage('Посредственно'); else ShowMessage('Неудачно!'); end; If MessageDlg('Сыграем еще?',mtInformation,[mbYes,mbNo],0)=mrYes then Goto lb1; ShowMessage('Пока.'); end; end.

Админ: Пользуемся тегами при оформлении кода!

[NumLock]

label, goto... Это из книжки 1985 года пример взят?)))

Скорее всего функция StrToInt() возбуждает исключение. Можно StrToIntDef() использовать.