Помогите решить в Паскале  Из элементов массива D сформировать массив A  той же размерности по правилу: первые 10 элементов находятся по формуле Ai = Di+i, остальные по формуле Ai = Di-i.

const     n = 30; var     i: integer;     a, d: array[1..n]of integer; begin     for i := 1 to n do     begin         d[i] := random(100);         if i <= 10 then             a[i] := d[i] + i         else             a[i] := d[i] - i;         write(d[i]:4, ' ');     end;         writeln();     for i := 1 to n do         write(a[i]:4, ' '); end.