Преобразовать одномерный массив, увеличив каждый элемент массива в 2 раза — — Pascal(Паскаль)

uses
  crt;
const
  n=10;
var
  a:array[1..n]of integer;
  i,j,temp:integer;
begin
  clrscr;
  {задаем выводим считаем}
  writeln('Исходный массив:');
  write('[ ');
  for i:=1 to n do
  begin
    a[i]:=random(8)-4;
    write(a[i],' ')
  end;
  writeln(']');
  {умножаем}
  for i:=1 to n do
    a[i]:=a[i]*2;
  {выводим массив}
  writeln('Полученный массив:');
  write('[ ');
  for i:=1 to n do
    write(a[i],' ');
  writeln(']');
end.