где-то ошибка

program proizv;
uses crt;
const a:array[1..2,1..4] of real=((0.01,-0.12,1.2,5.64),
                                 (2.31,0.56,4.3,7.26));
        b:array[1..4,1..3] of real=((5.29, 1.2,-7.2),
                                  (1.34,-0.5,-2.6),
                                  (  1 ,  2 , 0  ),
                                  ( -4 ,  7 , 8  ));
var c:array[1..4,1..4] of real;
 i,j:byte;
 
begin
 
writeln('Ishodnaya matrica a::');
for i:=1 to 2 do
 begin
  for j:=1 to 4 do
  write(a[i,j]:6:2,'  ');
  writeln();
 end;
writeln();
writeln('Ishodnaya matrica b::');
for i:=1 to 4 do
 begin
  for j:=1 to 3 do
  write(b[i,j]:6:2,'  ');
  writeln();
 end;
writeln();
writeln('Ïðîèçâåäåíèå ýëåìåíòîâ ìàññèâîâ À*Â:');
begin
for i:=1 to 4 do
for j:=1 to 4 do
  begin
   c[i,j]:=0;
   for i:=1 to 4 do
  c[i,j]:=c[i,j]+a[i,j]*b[i,j];
  end;
 end;
 for i:=1 to 4 do
  begin
    for j:=1 to 4 do
    write(c[i,j]:5:2,'  ');
    writeln;
  end;
  writeln();
  writeln();
 
 readkey
 end.