delphi问题，最后1步了

用delphi写了个双色球自动选号的小程序，现在到了最后一个功能了--过滤掉选好的几个号码，然后再剩下的里面再随机选择，我用的是CheckListBox1,在里面放了1-33个，思路是如果选中的话将选中的号码附给t，然后在aaa[i]中过滤掉t 以下是写好的代码以及错误提示，请帮我看下，如果程序不能达到我的要求请也说说

type
Ta = array [1..6] of Integer;

procedure CreateData_(var aaa : Ta);
var
i,j,n,k,s,v,t: integer;
begin
For v:=0 to CheckListBox1.Items.Count-1 do
begin
if CheckListbox1.Checked[v] then
t:=strtoint(CheckListbox1.Items[v]);
end;
end;
begin
randomize;
//先用随机数初始化数组;
for i:=1 to 6 do
begin
repeat
n:=0;
aaa[i]:=1+random(33);
begin
if aaa[i]=t
then n:=n+1;
end;
until n=0;
end;

//下面是关键的部分，消去相同的数;

{ 前面的两个for语句是先用aaa[1]同aaa[2]到aaa[30]比较看有不有重复的数接着
再用aaa[2]与aaa[3]到aaa[30]比较看有无重复，一直到aaa[29]与aaa[30]比较完毕;}
for i:=1 to 5 do
begin
for j:=i+1 to 6 do
begin
if aaa[i]=aaa[j] then
begin

{下面这一部分是,如果在上面的比

我们同居2年了 每次到最后1步时 都不成功 她说她很讨厌房事 有什么问题么 一匹马向东跑了999步，向西跑了＃步，最后尾巴朝什么方向？ DELPHI问题 Delphi问题 delphi 问题 DELPHI问题? delphi问题 printer对象找不到了 delphi编程问题 晕 见鬼了 delphi问题 解决了绝对追加分 怎么折吸管的星星最后1步??