[dissident]

Cells[номер столбца, номер строки], а в математике наоборот, первый индекс - номер строки. Меняем местами индексы вот так:

for k := 1 to m do s:=s+a[k,i]*b[j,k];
c[j,i]:=s;

и все работает.