Можно ли вывести массив в Lazaruse данным образом?

[LevMark]

Как правильно вывести массив c[i,j] в Lazarus, что бы была матрица 3x3?
const
n = 3;
a: array[1..n, 1..n]of real = ((4, 2, 1), (3, -2, 0), (0, -1, 2));
b: array[1..n, 1..n]of real = ((2, 0, 2), (5, -7, -2), (1, 0, -1));

var
c: array[1..n, 1..n]of real;
d: array[1..n, 1..n]of real;
i, j, k: integer;

begin
for i := 1 to n do
for j := 1 to n do
d[i, j] := a[i,j]-b[i,j];
for i := 1 to n do
for j := 1 to n do
for k := 1 to n do
c[i,j]:= c[i,k]+d[k,j]*a[k,j];
for i := 1 to n do begin
for j := 1 to n do begin
c[i,j]:=c[i,j]+3*b[i,j];
write(c[i,j]:6:0);
end;
end;
readln();
writeln();
end.

[evg_m]

по заполнению(выводу) строки матрицы ДЕЛАТЬ переход к новой строке.
http://www.delphibasics.ru/Write.php
посмотреть раздел "похожие команды"

for i := 1 to n do
  for j := 1 to n do
    for k := 1 to n do
      c[i,j]:= c[i,k]+d[k,j]*a[k,j];

матрицу С не вредно бы сначала заполнить чем-то.
привыкайте не полагаться на то что там изначально будет именно то что вам нужно.

[LevMark]

Благодарю за помощь!

[LevMark]

evg_m, Благодарю за помощь!