Работа с массивом

[ReMicroN]

Дан массив, например из 10 чисел от -10 до 10, рандомно выбранных.
Нужно создать еще 1н массив, который равен исходному, но отрицательные числа заменены на их квадраты.

Как это реализовать на паскале?

[whatever]

//Дан массив, например из 10 чисел от -10 до 10, рандомно выбранных.
for i:=1 to 10 do
  a1[i]:=random(20)-10;

//Нужно создать еще 1н массив, который равен исходному, но отрицательные числа заменены на их квадраты.
for i:=1 to 10 do
  if a1[i]>=0 then
    a2[i]:=a1[i]
  else
    a2[i]:=a1[i]*a1[i];