Выводит лишь 1 строчку массива в Lazarus

[LevMark]

Выводит лишь 1 строчку массива в Lazarus, что нужно сделать, чтобы выводился весь массив?
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;
f: array[1..n, 1..n]of real;
e: array[1..n, 1..n]of real;
i, j: integer;

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

[ViktorR]

Эта часть кода отвечает за вывод массива:

for i := 1 to n do
begin
   for j := 1 to n do
   begin
      c[i, j] := f[i, j] - e[i, j];
      write(c[i, j]:6:0);
   end;
   writeln();
   readln();           {что тут делает эта процедура?}
end;

А что получится, если после каждой строчки нажимать Enter?

[LevMark]

ViktorR, Спасибо большое, ошибку нашел!