одномерный массив, немогу разобраться , уже 4 вечер Опции

[Renat]

Разработать в среде Turbo Pascal программу осуществляющую сдвиг элементов массива на одну позицию влево.
Дан одномерный массив ненулевых целых чисел размера N.
1. Найти номера одинаковых элементов, вывести эти номера в порядке возрастания, а так же квадрат суммы этих элементов;
2. Вставить элемент с нулевым значением перед минимальным и после максимального элемента массива;
3. Осуществить сдвиг элементов массива влево на одну позицию . Последний элемент полученного массива положительно равен 0.
Для отладки программы исходный массив сформировать с помощью генератора случайных чисел. / Заранее спасибо!