Ошибка в программе перемножения матрицы на вектор в делфи

[Настя-Картошка]

Конечный результ на форме выдает неверный,там какая-то ошибка,запуталась с i и j. Че-то там с StringGrid`ами...

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;
    StringGrid3: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Matrix: array [0..4, 0..4] of integer;  //  Массив А(5, 5)
  Vector: array [0..4] of integer;
 //  Массив В(вектор(5))
  Element: integer;  //  Новый элемент полученного массива

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: integer;
begin
  For i:=0 to 4 do
    For j:=0 to 4 do
    Matrix[i, j]:= StrToInt(StringGrid1.Cells[i, j]);  //  Получение матрицы из сетки
  For i:=0 to 4 do
    Vector[i]:= StrToInt(StringGrid2.Cells[i, 0]);  //  Получение вектора из сетки
  for i:=0 to 4 do  //  Умножение массивов A*B
    begin
      Element:= 0;
      for j:=0 to 4 do
        Element:= Element + (Matrix[i, j]) * (Vector[j]);  //  Получение нового элемента массива C
      StringGrid3.Cells[i, 0]:= IntToStr(Element);  //  Вывод полученного элемента массива в сетку
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i, j: integer;
begin
  Randomize;  //  Инициализация генератора случайных чисел
  For i:=0 to 4 do
    For j:=0 to 4 do
      StringGrid1.Cells[i, j]:= IntToStr(Random(11));  //  Заполнение первой сетки случайными числами в диапазоне (0..10)
  For i:=0 to 4 do
    StringGrid2.Cells[i, 0]:= IntToStr(Random(11));  //  Заполнение второй сетки случайными числами в диапазоне (0..10)
end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Прик]

В двумерных массивах (array) первое измерение (Matrix: array [0..4, ...]) определяет строки, второе (Matrix: array [..., 0..4]) столбцы.
В StringGrid наоборот: первое колонки, второе строки. Поэтому надо поменять местами индексы колонок и строк:

Matrix[i, j]:= StrToInt(StringGrid1.Cells[j, i]);

[Serge_Bliznykov]

кстати, у меня глюки, или одновременно два разных человека пишут одинаковую программу?!

я имею в виду тему: умножение матрицы на вектор на Delphi (неверно работает)

даже если это разные люди, может всё же стоит объединить обсуждение в одну тему?...

[Настя-Картошка]

не знаю,но эт не я)
моя тема раньше была создана)
работу уже сдала,но все равно спасибо)