Помогите, пожалуйста, написать две программы на Turbo Pascal

Вот тексты:
1. "С клавиатуры вводится строка длиной не более 60 символов, отдельные слова разделяются пробелами. Вывести строку на экран, заменив все вхождения заданной цепочки символов на образец. Значение цепочки и образца вводится с консоли".

2. "В одномерном массиве состоящем из n вещественных элементов, вычислить:
а) Количество отрицательных элементов массива;
б) Сумму модулей элементов массива, расположенных после минимального по модулю элемента.
Заменить все отрицательные элементы массива их квадратами и упорядочить элементы массива по возрастанию. "