[icWasya]

Для начала раздели этап умножения и этап вывода результата.
во вторых, если это умножение матриц из линейной алгебры, то ныжно использовать тройной цикл

Код:

for i:=1 to rowcount do
begin
   for j:=1 to colcount do
   begin
      s[i,j]:=0;
      for k :=0 to ПОДСТАВЬ_САМ do
      s[i,j]:=s[i,j]+r[i,k]*q[k,j];
   end;
end;