... выложил основную часть кода..Помогите решить плиииз =)
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;