сортировка массива

[TotKtoNado]

var
  a: array of integer;
  k: integer; // текущий элемент массива
  i: integer; // индекс для ввода и вывода массива
  changed: boolean; // TRUE, если в текущем цикле были обмены
  buf: integer; // буфер для обмена элементами массива
  b:integer;
begin
  while StringGrid1.Col<>StringGrid1.ColCount-1 do
  Begin
    SetLength(a,i+1);
    StringGrid1.Col:=StringGrid1.Col+1;
    i:=i+1;
    a[i] := StrToInt(StringGrid1.Cells[StringGrid1.Col, 0]);
    label1.caption := '';
  End;
  // ввод массива
  b:=i;
  //определение границ массива
  i:=0;
  //индекс перемещаеться в начало
  while i<b do
  begin
    I:=i+1;
    if a[i] > a[i + 1] then
      begin // обменяем k-й и k+1-й элементы
        buf := a[i];
        a[i] := a[i + 1];
        a[i + 1] := buf;
      end;
  end;

почему она ругаеться?
---------------------------
Project1
---------------------------
Access violation at address 004C03AA in module 'Project1.exe'. Read of address 00000008.
---------------------------
ОК
---------------------------

[Stilet]

1 - Моим советам ты не доверился? Здря.
2 - ну и на какой строке ругань?

[TotKtoNado]

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

1 - Моим советам ты не доверился? Здря.
2 - ну и на какой строке ругань?

ну он ругаеться при проверке программы где то

      begin // обменяем k-й и k+1-й элементы
        buf := a[i];
        a[i] := a[i + 1];
        a[i + 1] := buf;
      end;

[Serge_Bliznykov]

на редкость ужасный код...
Кошмар!

p.s. 100% "ругается" из за обращения к элементу массива a[i+1], которого НЕ СУЩЕСТВУЕТ (т.е. выход за пределы массива)!

[Stilet]

b:=i;
//определение границ массива
i:=0;
//индекс перемещаеться в начало
while i<b do

Замени на

 for i:=Low(a) to High(a)-1 do

[TotKtoNado]

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

Замени на

 for i:=Low(a) to High(a)-1 do

а в теле что указывать?

[Stilet]

Свой код перестановки )
Ты же его в while запхнув

[TotKtoNado]

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

Свой код перестановки )
Ты же его в while запхнув

кажеться что то я не допонимаю
ругаеться [DCC Error] Unit2.pas(53): E2081 Assignment to FOR-Loop variable 'i'

  for i:=Low(a) to High(a)-1 do

  begin
    I:=i+1;
    if a[i] > a[i + 1] then
      begin // обменяем k-й и k+1-й элементы
        buf := a[i];
        a[i] := a[i + 1];
        a[i + 1] := buf;
      end;
  end;

[Stilet]

I:=i+1;

А вот это вот убери фтопку. Цикл сам инкремент сделает.

[TotKtoNado]

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

А вот это вот убери фтопку. Цикл сам инкремент сделает.

что за инкремент? и у меня тут много i:=i+1