Помогите сделать пожалуйста

С(-7,3,0,2,-1,4,8,-9,1,6)
Найти: 1) произведение положительных элементов
2) кол-во отрицательных элементов
3) макс. элемент
4) получить новый массив по правилу:
Bi= Ci+10; если Ci>=0
Ci^2; если Ci>=0
5) сортировка по убыванию (напечать элементы массива в строку)

В)S:='Hello world!';
Delete(s,3,2);
Insert(s,1,'_');
Writeln(s);
Г)S:='Hello world!';
Writeln(pos('?',s));
Д)S:='Hello world!';
Writeln(pos('wor',s));

вас любил: лю­бовь ещё, быть может, в душе моей угас­ла не со­всем.

положена по отношению к окружности (лежит на окружности, внутри окружности, за окружностью)