Ошибка в цикле , не могу понять в чем! Помогите пожалуйста.

[Алексей_xXx]

Ошибка в цикле , не могу понять в чем! Помогите пожалуйста.

procedure TForm1.Button3Click(Sender: TObject);


procedure BubbleSort(var a: array of integer);
var i,p,n: Integer; b: boolean;
begin
n:= Length(a)-1;
if n < 1 then exit;
repeat
b:= true;
Dec(n);
for i:= 0 to n do
if a[i] > a[i+1] then
begin
p:= a[i];
a[i]:= a[i+1];
a[i+1]:= p;
b:= false;
inc(d);
end;
until b;

end;


const
n=5;
var
d,k,i,temp,bound:integer;
x:array[1..n] of integer;
begin
randomize;


for i:=1 to n do
x[i]:=random(100);
for k:=1 to n do
memo5.Lines.Add(IntToStr(x[k]));
end;

begin
for i:=1 to n do
a[i]:=StrToInt(Memo3.Lines[i-1]); // строки Memo пронумерованы с нуля

BubbleSort(a);

for i:=1 to SIZE do //вывод
memo4.Lines.Add(IntToStr(a[i]));


edit3.Text:=IntToStr(SIZE*SIZE); //оценка сложности
edit4.Text:=IntToStr(d);

end;

[Sazary]

for i:=1 to n do
x[i]:=random(100);
for k:=1 to n do
memo5.Lines.Add(IntToStr(x[k]));
end;

begin
for i:=1 to n do

Лишние.

В самом обработчике нет массива a, есть массив x.
Где объявлена SIZE не нашел.