массив из 15 элементов из интервала от -10до10 вывести в строку. на куб этого числа,вывести повторно.

вот не уверенна, что правильно Program A1;
Uses crt;
Var A: array [1..15] of integer;
i: integer;
Begin clrscr;
for i:=1 to 15 do
begin
a[i]:= random (10-(-10)+1)+(-10);
write (a[i],' ');
end;
writeln;
for i:=1 to 15 do
begin
if i mod 2=0 then a[i]:=5;
end;
for i:=1 to 15 do
write {a[i].' ');
readln;
readkey;
end.

спасибо

пожалуйста