[mikhail_mikhail]

Здравствуйте, вводятся 2 матрицы в memo1 и memo2. Размерность задается с помощью SpinEdit. Мне нужно перемножить 2 матрицы одинаковой размерности, вообщем я ввожу матрицы в мемо1 и мемо 2 но результат выходит нулевая матрица.
вот код этого участка:

Код:

procedure TForm2.Button3Click(Sender: TObject);
var
   i,j:integer;
   temp:string;
begin
 
   Form3.Memo1.Clear;
   for i:=1 to rowcount do
   begin
   temp:= ' ';
   for j:=1 to colcount do
   begin
      s[i,j]:=s[i,j]+r[i,j]*q[i,j];
      temp:=temp+floattostr(s[i,j])+ ' ';
          end;
      Form3.Label1.Visible:=true;
      Form3.Label1.Caption:='A*B';
      form3.Show;
      Form3.Memo1.Lines.Add(temp);
      temp:= ' ';
 
       end;

Прошу, скажите чего тут не хватает?? Цикла, индексы неправильны или что?? Спасибо! Проэкт приложил