Прошу помощи

[p4f^FEO 0]

Народ нужна помощь!если кто знаком с Pascal очень прошу помочь мне сделать программы!

 

1. дан одномерный массив.найти среднее арифмитическое значение простых чисел в массиве.простым числом называется число,которое делится на 1 и на само себя.

 

2.дан одномерный массив,состоящий из n вещественных чисел.сжать массив,удалив из него все элементы,модуль которых не превышает единицу.

освободившиеся в конце массива элементы заполнить нулями.

 

3.дан двумерный массив размерностью N*M(N и M вводятся с клавиатуры).найти сумму элементов каждого столбца данного массива..

 

4.дан двумерный массив.заменить все положительные числа массива на 0.

 

5.дана строка.вывести все слова,предварительно удвоив из них все предыдущие вхождения последней буквы.

 

6.дан текстовый файл.переписать информацию во второй файл,удаляя из неё все гласные буквы.

 

7.нарисовать на экране прямоугольник красного цвета на синем фоне.

 

Заранее благодарен !