Delphi. сделать тест на Делфи, не работает вывод результатов

[LinaMin]

Здравствуйте очень нужна ваша помощь. Мне нужно сделать тест на Делфи. Все оформила как надо, программу к кнопке "результат" написала, но он так и не выводиться. Подскажите где у меня ошибка. Спасибо
Это программа к кнопке результат.

procedure TForm1.Button1Click (Sender: TObject);
var s,p:integer;
begin
 p:=p+1;
 s:=0;

 if (p=1) and RadioButton3.Checked Then s:=s+1;
 if (p=1) and RadioButton6.Checked Then s:=s+1;
 if (p=1) and RadioButton12.Checked Then s:=s+1;
   begin
 if s=3 then Label13.Caption:='Молодец';
 if s=2 then Label13.Caption:='Нормально';
 if s=1 then Label13.Caption:='Плохо';
 if s=0 then Label13.Caption:='Очень плохо';
 end;
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

1) это и компилироваться не должно - лишний begin для чего-то есть, а end для него отсутствует.

2) как это Вы к p добавляете +1 если Вы туда ничего ещё не записали.
Это грубейшая ошибка!!

procedure TForm1.Button1Click (Sender: TObject);
var s,p:integer;
begin
   Тут надо что-то занести в p
 p:=p+1;
   s:=0;
   if (p=1) and RadioButton3.Checked Then s:=s+1;
   if (p=1) and RadioButton6.Checked Then s:=s+1;
   if (p=1) and RadioButton12.Checked Then s:=s+1;
   if s=3 then Label13.Caption:='Молодец';
   if s=2 then Label13.Caption:='Нормально';
   if s=1 then Label13.Caption:='Плохо';
   if s=0 then Label13.Caption:='Очень плохо';
 end;

end.