Выполнить действия над матрицами

uses crt;
const a:array[1..2,1..3] of integer=
      ((2,1,5),(0,1,-3));
      b:array[1..3,1..2] of integer=
      ((2,3),(1,0),(5,8));
      c:array[1..2,1..2] of integer=
      ((2,1),(-1,0));
var x:array[1..3,1..3] of integer;
    i,j:byte;
begin
clrscr;
for i:=1 to 3 do
for j:=1 to 3 do
x[i,j]:=a[i,j]*b[i,j]-7*c[i,j];
writeln('Ответ:');
for i:=1 to 3 do
 begin
  for j:=1 to 3 do
  write(x[i,j]:5);
  writeln;
 end;
readln
end.

const
  a: array[1..2, 1..3] of integer =
  ((2, 1, 5), (0, 1, -3));
  b: array[1..3, 1..2] of integer =
  ((2, 3), (1, 0), (5, 8));
  c: array[1..2, 1..2] of integer =
  ((2, 1), (-1, 0));
 
var
  x: array[1..3, 1..3] of integer;
  i, j: byte;
 
begin
  for i := 1 to 2 do
    for j := 1 to 3 do
      x[i, j] := a[i, j] * b[j, i];
  for i := 1 to 2 do
    for j := 1 to 2 do
      c[i, j] := - 7 * c[i, j];
  for i := 1 to 2 do
    for j := 1 to 2 do
      x[i, j] := x[i, j] - c[j, i];
      
  writeln('Ответ:');
  for i := 1 to 3 do
  begin
    for j := 1 to 3 do
      write(x[i, j]:5);
    writeln;
  end;
  readln
end.