проблема с сортировкой массива в StringGrid Delphi

Question

здраствуйте в 1 стинггрид вводятся числа вручную, во втором стингриде нужно все это дело отсортировать. вот мой код?

procedure TForm1.Button1Click(Sender: TObject);

var

i,j:integer;

x:integer;

begin

for i:=1 to n do

a[i]:=StrToInt(StringGrid1.Cells[i-1,0]);

for i := 1 to n - 1 do

for j := 1 to n - i do

if a[j] > a[j + 1] then begin

x := a[j];

a[j] := a[j + 1];

a[j + 1] := x;

end;

for i:=1 to n-1 do

StringGrid2.Cells[i,0]:=IntToStr(a[i]);

end;

но во 2 стинггрид выводятся только элементы нпачиная со второго, 1 элемента программа не видит в чем проблема? ? спасибо!

Екатерина Власова · Accepted Answer

В этом проблема:
for i:=1 to n-1 do
StringGrid2.Cells[i,0]:=IntToStr(a[i]);

Нилолай Щербакова · Answer

Потому, что в StringGrid нумерация с 0 начинается!

Чиж К. · Answer

for i:=0 to StringGrid1.RowCount - 1 begin
//тут делаешь, что надо

end;