Ошибка в Аfor i:=1 to SI do. Пишит что ошибка в SI

[Алексей_xXx]

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


for i:=1 to SI do
x[i]:=random(100);
for k:=1 to SI do
memo5.Lines.Add(IntToStr(x[k]));
end;
begin
for i:=1 to SI do
x[i]:=StrToInt(Memo5.Lines[i-1]); // строки Memo пронумерованы с нуля

[spamer]

Алексей_xXx, чето я не пойму, но попробуйте вот так:

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


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

for i:=1 to SI do
x[i]:=StrToInt(Memo5.Lines[i-1]);

[Алексей_xXx]

всё ранво пишет ошибку

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
SI=5;
var
d,k,i,temp,bound:integer;
x:array[1..SI] of integer;
begin
randomize;


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

for i:=1 to SI do


x[i]:=StrToInt(Memo5.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;

Вот полностью код