паскаль массив, помогите пожалуйста с программой

Question

Дан массив A ( N ) = ( a1, a2, …, aN ). Если наименьший элемент массива меньше 0, заменить все отрицательные элементы массива их квадратами.

Николай · Accepted Answer

На паскаль абц. 
program asdf; 
const N=10; 
var a:array[1..N] of integer; i:integer; 
begin 
cls; 
randomize; 
for i:=1 to N do begin 
a:=random(20)-10; 
write(a,' '); 
end; 
writeln; 
for i:=1 to N do begin 
if a<0 then 
a:=sqr(a); 
end; 
for i:=1 to N do 
write(a,' '); 
end.