Массивы

[Uoga]

Задали решить задачку на массивы( Необходима ваша помощь !пожааалуйста напишите решение её:

Создать массив:
12345678
12345678
12345678
12345678

[Shift_sk]

var a:array[1..4,1..8] of byte;
     i,j:integer;
begin
for i:=1 to 4 do
for j:=1 to 8 do
a[i,j]:=j;
for i:=1 to 4 do begin
for j:=1 to 8 do
write(a[i,j],' ');
writeln;
end;
end.