Задача 3 урок 15 Одномерные массивы и работа с ними в Паскале.

Урок 15 задача 3

У вас есть массив чисел от 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; // массив из 17 элементов
var
  a: myArr; // объявляем переменную типа  myArr
 stroka, dlinna, m, i : integer;
begin
    m:=1;
   stroka:=1;
   dlinna:=1;
   for i:= 1 to 17 do
       begin
            a[i]:=a[i]+m;   //Увеличение массива
            m:=m+1;
            if (dlinna = stroka) then // проверка переменных для переноса строки
               begin
                    writeln(a[i]);
                    dlinna:=0;
                    stroka:=stroka+1;
               end
            else
                    write(a[i]);
                    dlinna:= dlinna+1;
       end;
   readln();
end.