Выдаёт ошибку adress violation on xxx - Delphi

[jipumex@cartelera.]

procedure TForm2.Button1Click(Sender: TObject);
const str=12;
stol=1;
var a:array [0..str-1,0..stol-1] of real;
i,j:integer;
buf,summ:real;
s,prob:string;
begin
prob:=' ';
for i:=0 to str-1 do
for j:=0 to stol-1 do
a[i,j]:=strtofloat(stringgrid1.cells[i,j]);
for i:=0 to str-1 do
for j:=0 to stol-1 do
if a[i,j]<0 then
summ:=a[i,j]+summ;
for i:=0 to str-1 do
for j:=0 to stol-1 do
if a[i,j]>a[i+1,j] then
begin
buf:=a[i,j];
a[i,j]:=a[i+1,j];
a[i+1,j]:=buf;
end;
label1.caption:=floattostrf(summ,fffixed,0,3);
for i:=0 to str-1 do
for j:=0 to stol-1 do
s:=s+floattostrf(a[i,j],fffixed,0,3)+prob;
label2.caption:=s;
end;

В чём ошибка?

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

[type_Oleg]

Наерное здесь:

if a[i,j]>a[i+1,j] then

и других местах далее, где i+1

При i=str-1 => i+1=str, а это уже за пределами границ

Может быть надо так : ?

for i:=0 to str-2

[jipumex@cartelera.]

Сообщение от type_Oleg

Наерное здесь:

if a[i,j]>a[i+1,j] then

и других местах далее, где i+1

При i=str-1 => i+1=str, а это уже за пределами границ

Может быть надо так : ?

for i:=0 to str-2

Попробовал, выдача заработала, но теперь не сортирует.

(стало так)
procedure TForm2.Button1Click(Sender: TObject);
const str=12;
stol=1;
var a:array [0..str-1,0..stol-1] of real;
i,j:integer;
buf,summ:real;
s,prob:string;
begin
prob:=' ';
for i:=0 to str-1 do
for j:=0 to stol-1 do
a[i,j]:=strtofloat(stringgrid1.cells[i,j]);
for i:=0 to str-1 do
for j:=0 to stol-1 do
if a[i,j]<0 then
summ:=a[i,j]+summ;
for i:=0 to str-2 do
for j:=0 to stol-1 do
if a[i,j]>a[i+1,j] then
begin
buf:=a[i,j];
a[i,j]:=a[i+1,j];
a[i+1,j]:=buf;
end;
label1.caption:=floattostrf(summ,ff fixed,0,3);
for i:=0 to str-1 do
for j:=0 to stol-1 do
s:=s+floattostrf(a[i,j],fffixed,0,0)+prob;
label2.caption:=s;
end;

[type_Oleg]

Сообщение от jipumex@cartelera.

но теперь не сортирует.

Ну так у вас - пузырек вроде.
А вы всего 1 проход делаете.
Например 2,3,4,5,1 -> будет всего лишь 2,3,4,1,5