[Katrin]

Код:

unit Unit1;

interface

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

type
  TfmExample = class(TForm)
    Panel1: TPanel;
    bbRun: TBitBtn;
    bbClose: TBitBtn;
    IbOutput: TLabel;
    mmOutput: TMemo;
    edinput: TMaskEdit;
    procedure FormActivate(Sender: TObject);
    procedure bbRunClick(Sender: TObject);
  private
    { Private declarations }
  X:Integer;
  public
    { Public declarations }
  end;

var
  fmExample: TfmExample;

implementation

{$R *.dfm}

procedure TfmExample.FormActivate(Sender: TObject);
begin
X := Random (1001) ;

edinput.SetFocus; 

Caption := 'Ugadai zeloe chislo ot  0...1000';

IbOutput.Caption := 'Vvedite chislo';

end;

procedure TfmExample.bbRunClick(Sender: TObject);
var
Y: Integer;

begin
if edinput.Text = '' then

Exit; 



Y := StrToInt(Trim(edInput.Text));

edinput.Text := ''; 

edinput.SetFocus; 
if Tag = 0 then

if X < Y then 

mmOutput.Lines.Add('X < '+IntToStr(Y)) 

else if X > Y then

mmOutput.Lines.Add('X > '+IntToStr (Y))

else if X = Y then


mmOutput.Lines.Add('X = ' +IntToStr(Y));

MessageBeep(MB_OK); 

IbOutput.Caption :='Ugadal! Vvedite 1 dlya prodolgeniya:';

Tag := 1; 


else if Y = 1 then


X := Random(1001); 

IbOutput.Caption := 'Vvedite chislo:';

Tag := 0; 

edinput.SetFocus;

else
Close;

end;
end.

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

Ругается на else в строке else if Y = 1 then и else Close;