Не получается нарастить сумму правильных ответов

не получается нарастить сумму правильных ответов.
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button2: TButton;
Memo1: TMemo;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
Button6: TButton;
procedure FormCreate(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton3Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const
n=10;
m=30;
var
Form1: TForm1;
i,j,l,p:integer;
vopr:array [1..10] of string;
otv:array [1..100] of string;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
p:=0;
vopr[1]:='1.Самый крупнейший музей Санкт-Петербурга?';
vopr[2]:='2.С помощью какой крепости выполнялась защита города в 18 веке?';
vopr[3]:='3.Пригород Санкт-Петербурга.';
vopr[4]:='4.Резиденции Екатерины I в окрестностях Санкт-Петербурга?';
vopr[5]:='5.Самый известный храм в Санкт-Петербурге.';
vopr[6]:='6.Какой театр расположен в Санкт-Петербурге?';
vopr[7]:='7.Этот крейсер сейчас являлется музеем Санкт-Петербурге.';
vopr[8]:='8.По какому саду стоит погулять в Санкт-Петербурге?';
vopr[9]:='9.Географический вопрос:Какой остров расположен в устье реки Невы, к югу от Петроградского?';
vopr[10]:='10.Кому был псовящен памятник "Медный всадник"';
otv[1]:='Государственный Русский музей';
otv[2]:='Эрмитаж!';
otv[3]:='Мраморный дворец';
otv[4]:='Петропавловская крепость!';
otv[5]:='Кронштадт';
otv[6]:='Ландскрона';
otv[7]:='Архангельское';
otv[8]:='Ефремов';
otv[9]:='Павловск!';
otv[10]:='Царское Село!';
otv[11]:='Гатчина';
otv[12]:='Петергоф';
otv[13]:='Собор Василия Блаженого';
otv[14]:='Покрова на Нерли';
otv[15]:='Спас на Крови!';
otv[16]:='Современник';
otv[17]:='Мариинский!';
otv[18]:='Линком';
otv[19]:='Крейсер "Варяг"';
otv[20]:='Тяжелый авианесущй крейсер "Адмирал Кузнецов"';
otv[21]:='Крейсер "Аврора"!';
otv[22]:='Летний Сад!';
otv[23]:='Александровский сад';
otv[24]:='Китайгородский холм';
otv[25]:='Петроградский';
otv[26]:='Васильевский!';
otv[27]:='Крестовый';
otv[28]:='Петр I';
otv[29]:='Павел I!';
otv[30]:='Александр II';
i:=1;
memo1.Text:=vopr;
button5.Enabled:=false;
button6.Visible:=true;
RadioButton1.Caption:=otv[1];
RadioButton2.Caption:=otv[2];
RadioButton3.Caption:=otv[3];

end;

procedure TForm1.Button5Click(Sender: TObject);
begin
if i<>n then begin
i:=i+1;
memo1.Text:=vopr
;
end;
radiobutton1.Checked:=false;
radiobutton2.Checked:=false;
radiobutton3.Checked:=false;
button5.Enabled:=false;
if radioButton2.Checked=true then inc(p);
if i=2 then begin
RadioButton1.Caption:=otv[4];
RadioButton2.Caption:=otv[5];
RadioButton3.Caption:=otv[6];
if radioButton1.Checked=true then inc(p);
end;
if i=3 then begin
RadioButton1.Caption:=otv[7];
RadioButton2.Caption:=otv[8];
RadioButton3.Caption:=otv[9];
if radioButton3.Checked=true then inc(p);
end;
if i=4 then begin
RadioButton1.Caption:=otv[10];
RadioButton2.Caption:=otv[11];
RadioButton3.Caption:=otv[12];
if radioButton1.Checked=true then inc(p);
end;
if i=5 then begin
RadioButton1.Caption:=otv[13];