Заполнить массив из 5 элементов случайными числами , а затем увеличить каждый элемент в два раза и повторно вывести на экран.
Решите пожалуйста!

const n=5;var   i: integer;  var a: array[1..n] of integer;begin  writeln ('Исходный массив');  for i:=1 to n do begin    a[i]:=random(10);    write (a[i]:3);    a[i]:=2*a[i];  end;  writeln;    writeln ('Новый массив');    println (a);end.-----------------------------------Исходный массив9  4  7  7  2Новый массив18 8 14 14 4