Заполнить массив из 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