Вывести двумерный массив 10 х5. Вывести на экран

Const a:array[1 ... 10,1 ... 5] of integer = (

(1,2,3,4,5),

(2,2,3,4,5),

(3,2,3,4,5),

(4,2,3,4,5),

(5,2,3,4,5),

(6,2,3,4,5),

(7,2,3,4,5),

(8,2,3,4,5),

(9,2,3,4,5),

(10,2,3,4,5)) ;

var

i, j:integer;

begin

writeln;

for i : = 1 to 10 do

begin

for j: = 1 to 5 do

write (a[i, j],' ') ;

writeln;

end;

end.