Требуется найти ошибку

[alex150394]

Написал программу в делфи,не могу понять где допустил ошибку. Элементы массива X расположить в обратном порядке.Думаю что в последней строке
вот код:
Код:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
StringGrid1: TStringGrid;
StringGrid2: TStringGrid;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;


Type

Mas1 = array[1..6,1..6] of extended;
var
Form1: TForm1;
A,B : Mas1;
i ,j: integer;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin
j:=0;
for i:=1 to 5 do
A[i,1]:=StrToFloat(StringGrid1.Cells[i,1]);
for i:=5 downto 1 do
StringGrid2.Cells[j+1,2]:=FloatToStrf(A[i,1],fffixed,6,2);

end;

end.

[BDA]

Во-первых, кросспостинг запрещен.
Ваша тема - http://programmersforum.ru/showthread.php?t=220962
Во-вторых, массив одномерный?
Нумерация в StringGrid идет с 0 и номера строк и столбцов наоборот относительно массива (номер столбца первый, а строки - второй).