перемножение матриц

[laike]

Здравствуйте. Требуется перемножить две матрицы размерностью не более 10 на 10 и вывести результат. Пытался сам накалякать.. что-то не выходит никак ... выложил основную часть кода (так как это лишь часть огромной задачи, но остальное сделал=) )..
Помогите решить плиииз =)


begin
repeat
writeln ('VVedite kol-vo strok pervoj matricy ne bolshe 10');
writeln ('VVedite kol-vo stolbcov pervoj matricy ne bolshe 10');
readln(m1);
readln(n1);
until (n1<11) and (n1>0) and (m1<11) and (m1>0);
begin
writeln ('Vvedite matricu po odnomu elementu');
for i1:=1 to m1 do
for j1:=1 to n1 do
readln(mas1[i1,j1]);
end;
repeat
writeln ('VVedite kol-vo strok vtoroj matricy ne bolshe 10');
writeln ('VVedite kol-vo stolbcov vtoroj matricy ne bolshe 10');
writeln ('Kol-vo strok pervoj matricy dolgno sootvetstvovat kol-vu stolbcov vtoroj matricu');
readln(m2);
readln(n2);
until (n2<11) and (n2>0) and (m2<11) and (m2>0) and (m1=n2);
begin
writeln ('Vvedite vtoruiy matricu po odnomu elementu');
for i2:=1 to m2 do
for j2:=1 to n2 do
readln(mas2[i1,j1]);
end;
for i3:=1 to m1 do
begin
for j3:=1 to n2 do
begin
mas3[i3,j3]:=0;
for k:=1 to n2 do
mas3[i3,j3]:=mas3[i3,j3]+mas1[i1,k]*mas2[k,j2];
end;
end;
writeln(' a[',i3:0,',',j3:0,']= ',mas3[i3,j3]:0:0);
end;
end;

[ROMA2PVT]

Uses
   CRT;
Const
   Max=10;
Var
  A,B,C: array [1..Max,1..Max] of integer;
  i,j,n,m,l,k:integer;
  S:integer;
begin
randomize;
Clrscr;
repeat
  write('Введите количество строк матрицы A:=');
  readln(N);
  until n in [1..max];
  repeat
  write('Введите количество столбцов матрицы A:=');
  readln(M);
  until m in [1..max];
  writeln('матрица A:');
  for i:=1 to n do
  begin
  for j:=1 to m do
    begin
      A[i,j]:=random(5)+1;
      write(a[i,j]:2,' ');
    end;
    writeln;
    end;
    repeat
    write('Введите количество строк матрицы B:=');
  readln(k);
  until k in [1..max];
  repeat
  write('Введите количество столбцов матрицы B:=');
  readln(n);
  until n in [1..max];
    writeln;
   writeln('матрица B:');
  for i:=1 to k do
  begin
  for j:=1 to n do
   begin
      B[i,j]:=random(5)+1;
      write(b[i,j]:2,' ');
   end;
   writeln;
   end;
    if m=k then
    begin
    for i:=1 to n do
    for j:=1 to n do
      begin
        S:= 0;
        for l:=1 to k do
          S:=S+A[i,l]*B[l,j];
          C[i,j]:=S;
      end;
      writeln;
  writeln('C[i,j]:=A[i,j]*B[i,j]');
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(C[i,j]:2,' ');
      writeln;
    end;
    end
    else writeln('Число столбцов первой матрицы не равно числу строк второй!!!');
readkey;
end.

Ну вот как то так.

[laike]

Спасибо конечно... только вся проблема и состоит в том, чтобы ИСПРАВИТЬ кусок этого кода...

[ROMA2PVT]

так посмотри как организовано у еня да переделай.