Задача 5 урок 15

http://fkn.ktu10.com/?q=node/8614
У вас есть массив чисел от 1 до 17, выведете его на экран, обходя в цикле таким образом
1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17

type
  myArr = array[1..17] of integer;
var
  a: myArr;
  i,k,m,n : integer;
begin
k:=1; //длина фрагмента
m:=1; //ограничитель длины фрагмента
for i:=low(a) to high(a) do
begin
write (i,' ');
if k=m then
begin
k:=0;
m:=m+1;
writeln;
end;
k:=k+1;
end;
end.