Для начала раздели этап умножения и этап вывода результата.
во вторых, если это умножение матриц из линейной алгебры, то ныжно использовать тройной цикл
Код:
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;