Напишите программу, которая создает массив

program Project1;
const
  n = 15;
var
  a: array [1..n] of integer; { Переменная для  хранения массива.}
  i: integer; { Вспомогательные переменные для организации циклов.}
  sum: integer; {Переменная для хранения значения суммы}
  srareth: real; {Переменная для хранения значения среднего арифметического}
begin
  Randomize;
  for i:= 1 to n do
    a[i]:= random(11) - 5;     {Заполнение массива случайными числами от -5 до 5}
  writeln('Исходный массив: ');
  for i:= 1 to n do
    begin
      write(a[i]:5);
      if i mod 10 = 0 then
        writeln;
    end;
  writeln;
  writeln('Новый массив: ');
  for i:= 1 to n do
    begin
      a[i]:= 2*a[i];    {Увеличение всех элементов массива на 2}
      write(a[i]:5);
      if i mod 10 = 0 then
        writeln;
    end;
  Readln;
end.

const
  n = 15;
var
  a: array [1..n] of integer;
  i: integer;
begin
  randomize;
  writeln('Исходный массив: ');
  for i := 1 to n do
    begin
      a[i]:= -5 + random(11);
      write(a[i]:4)
    end;
  writeln;
  writeln('Новый массив: ');
  for i:= 1 to n do
    begin
      a[i]:= 2*a[i];
      write(a[i]:4)
    end;
  readln
end.