нужна помощь с программой на паскале

[igor617]

Есть тело программы его нужно изменить
по этому заданию:Построить новый массив, элементы которого образуются как суммы последовательных пар элементов исходного массива.

program SLOZNO;

Uses CRT;
const
  nmin = -100;
  nmax = 100;
  k = 100;

var
  povtor, d, e, f, w, g: integer;
  x, y, z, s, q, n, i, r: byte;
  delta: array[nmin..nmax]of integer;
  delta2: array[0..k]of integer;

begin
  repeat
  clrscr;
  d := 0;
  writeln('Каким способом задать массив? 1 - самому 2 - случайно');
  readln(d);
  if d = 1 then
  begin
    writeln('введите количество элементов одномерного массива');
    readln(n);
    writeln('введите n элементов массива');
    {ввод массива}
    for i := 1 to n do
    begin
      write('элемент ', i, ' : ');
      read(delta[i]);
      x := delta[n];
    end;
    {вывод элементов массива в строку}
    writeln('Массив:');
    for i := 1 to n do
    begin
      write(delta[i]:3);
    end;
    writeln;
  end
  else
  begin
    writeln('задай диапазон случайных чисел w= ');
    readln(w);
    writeln('введите количество элементов одномерного массива');
    readln(n);
    {ввод массива и вывод элементов массива в строку}
    Writeln('Массив: ');
    for i := 1 to n do
 begin
      delta2[i] := random(w);
      Write(delta2[i], ' ');
    end;
    writeln();




  end;

writeln('Повторить? 1 - да 0 - нет');
readln(povtor);
until povtor=0
end.