var

 a:array of integer;

 i,n,min,max:integer;

begin

 write('Введите размерность массива: '); readln(n);

 setlength(a,n); dec(n);

 write('Введите разброс значений (min max): '); readln(min,max);

 writeln('Изначальный массив:');

 for i:=0 to n do

   begin

     a[i]:=random(max+abs(min)+1)+min;

     write(a[i]:4);

     if a[i]<0 then a[i]:=sqr(a[i]);

   end;

 writeln;

 writeln('Изменённый массив:');

 for i:=0 to n do

   write(a[i]:4);

end.

Дублирую свой ответ!

Если сочли мой ответ подходящим, пометьте его как "лучший". Спасибо!