Программа с типизированными константами двумерного массива - Turbo Pascal

Формулировка задачи:

Программа с типизированными константами двумерного массива.

uses Crt;
Const k = 3; n = 4;
t: array [1..k, 1..n] of Integer = ((-8,-14,-19,-18),
                                                   (25, 28, 26, 20),
                                                                (11, 18, 20, 25));
Var i, j: Integer;
begin
ClrScr;
  for i:= 1 to k do begin  for j:= 0 to n do begin
  WriteLn('  ', t[I, j]:3);
     end;  WriteLn;  end;
  ReadLn
end.

На выходе имеем:

Почему столбцы? Должно быть 3 строки и 4 столбца.(для одномерных массивов с типизированными константами никаких проблем уже нет (в своё время были ответы на эту тему)

Решение задачи: «Программа с типизированными константами двумерного массива»

Листинг программы

uses Crt;
const
  k = 3; n = 4;
  t: array [1..k, 1..n] of Integer = ((-8,-14,-19,-18),
                                      (25, 28, 26, 20),
                                      (11, 18, 20, 25));
var i, j: Integer;
begin
  ClrScr;
  for i := 1 to k do begin
    for j := 1 to n do Write('  ', t[i, j]:3);
    WriteLn;
  end;
  ReadLn;
end.

Объяснение кода листинга программы

Объявлены константы k=3 и n=4, которые определяют размер двумерного массива t.
Двумерный массив t объявлен как трехмерный массив строк, содержащих четыре значения типа Integer.
Первая строка массива t содержит четыре отрицательных числа: -19, -18, -14 и -8.
Вторая строка массива t содержит четыре положительных числа: 28, 26, 25 и 20.
Третья строка массива t содержит четыре числа: 11, 18, 20 и 25.
В цикле от 1 до k (где k=3) происходит вывод каждой строки массива t на экран.
В каждой итерации внутреннего цикла j изменяется от 1 до n (где n=4), и на экран выводится значение элемента массива t[i, j] с шагом 3.
После каждой итерации внешнего цикла выводится символ и символ перевода строки \n.
В конце программы требуется ввод с клавиатуры для завершения работы программы.
Программа не содержит ошибок компиляции и будет работать без изменений на любом языке программирования, поддерживающем компиляцию.