Очень необходимо!!!!На паскале Дан одномерный массив из 15 частей.Элементы массива

//PascalABC.NET v3.3 1633

const n = 15;

var arr: array [1..15] of integer;

begin

for var i:=1 to n do

 arr[i]:=random(-5,5);

write('Начальный массив: ');

arr.PrintLn(', ');

var countP:=0;

var countN:=0;

for var i:=1 to n do

 if arr[i] gt; 0 then

   countP += 1

 else

 if arr[i] lt; 0 then

 begin

   arr[i]:=Sqr(arr[i]);

   countN += 1;

 end;

writeln('Количество положительных частей: '+countP);

writeln('Количество отрицательных частей: '+countN);

write('Новый массив: ');

arr.PrintLn(', ');

end.