Помогите, пожалуйста, с задачей в Pascal: "Заполнить значениями первые 50 частей

var a: array[1..50] of integer; i: integer; s: integer; procedure PrnTen( n, d : integer); var k: integer; begin writeln; for k:= n to n+d do begin if (k mod 2) = 1 then write( , k, = , a[k], ;); end; end; begin a[1]:= 1 for i:= 1 to 49 do begin a[i+1]:= a[i] + 4; end; s:= 0; for i:= 1 to 50 do s:= s + a[i]; PrnTen( 10, 9); PrnTen( 20, 9); PrnTen( 30, 9); PrnTen( 40, 9); end. В первом цикле заполняется массив. Каждый элемент массива рассчитывается, как предшествующий значение предыдущего элемента плюс 4. Во втором цикле находится сумма всех частей массива и сохраняется в переменной "s". Для печати нечетных частей, в программку введена процедура печати. Характеристики процедуры: n- номер первого элемента массива, d- количество обрабатываемых частей В процедуре начиная с элемента под номером "n", обрабатываются "d" частей. На этом интервале, все элементы с нечетными номерами печатаются на экране. Эта процедура вызывается для печати нечетных элементов: - первого 10-ка (10..19); - второго 10-ка (20..29); - третьего 10-ка (30..39); - 4-ого 10-ка (40..49).