[vetalgov]

Код:

type
  TForm5 = class(TForm)
    Image1: TImage;
    StaticText1: TStaticText;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;
  answers:array[0..8]of boolean;
implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
var
  count,i:integer;
begin
  if radiogroup1.ItemIndex=1 then     //обращаю внимание на то, что нумерация начинается с 0, т.е. правильный ответ во второй строчке
    answers[1]:=true
  else
    answers[1]:=false;
count:=0;
  for i:=0 to 5 do
    if answers[i] then
      inc(count);
// смена картинок по кнопке
inc(n);
Image1.Picture.LoadFromFile(IntToStr(n)+'.jpg');
if n=1 then statictext1.caption:='Обласний ...';
ShowMessage ('Вы ответили правильно! +1')
if n=2 then statictext1.caption:='Памяятник визволителям м.Кропивницького';
if n=3 then statictext1.caption:='Памятник "Скорбящей Матери"';
if n=4 then statictext1.caption:='Памятник двірнику в м.Кропивницькому';
if n=5 then statictext1.caption:='Кіровоградський обласний краєзнавчий музей';
if n=6 then statictext1.caption:='6?';
if n=7 then statictext1.caption:='Де знаходться Перший памятник травмваю?';
if n=8 then statictext1.caption:='Пашкевич'

end;

end.

lmikle: Пользуемся тегами



пишет замечание в begin
if radiogroup ...