Работа с массивами и процедурами в Free Pascal

[akalinin]

Доброго времени суток! Кто может помочь с исполнением каких-нибудь задач из нижеприведенных? Основной критерий: должны быть использованы процедуры и массивы. Всё остальное как удобнее. Заранее спасибо.

11.12.* Заполнить массив:
а) двадцатью первыми натуральными числами, делящимися нацело на 13 или на 17 и находящимися в интервале, левая граница которого равна 300;
б) тридцатью первыми простыми числами (простым называется натуральное число, большее 1, не имеющее других делителей, кроме единицы и самого себя).


11.34. В массиве хранятся сведения о количестве осадков, выпавших за каждый день июня. Определить:
а) в какой период выпало больше осадков: в первую половину июня или во вторую;
б) в какую декаду месяца выпало больше всего осадков.


11.53. Дан массив целых чисел.
а) Все элементы, кратные числу 10, заменить нулем.
б) Все нечетные элементы удвоить, а четные уменьшить вдвое.
в) Нечетные элементы уменьшить на m, а элементы с нечетными номерами увеличить на n.


11.67. В массиве хранятся сведения об общей стоимости товаров, проданных фирмой за каждый день марта. Определить количество дней, в которые стоимость проданных товаров превысила значение s. (в данной задаче есть решение, но я не понимаю, как добавить туда процедуру)

program _1167;
const n=31;
var i,S:integer;
    x: array[1..n] of integer;
begin
RANDOMIZE;
for i:=1 to n do
begin
x[i]:=random(9999);
write(x[i]:5);
end;
writeln;
readln(S);
writeln;
for i:=1 to n do
begin
if x[i]>S then
write(i:3);
end;
end.

11.106.* Дан массив целых чисел. Рассмотреть отрезки массива (группы идущих подряд чисел), состоящие из нечетных чисел. Получить наибольшую из длин рассматриваемых отрезков.


11.168.* Вставить число n между всеми соседними элементами, имеющими одинаковый знак.
Каким должен быть максимальный размер исходного массива?

[Stilet]

11.106.* Дан массив целых чисел. Рассмотреть отрезки массива (группы идущих подряд чисел), состоящие из нечетных чисел. Получить наибольшую из длин рассматриваемых отрезков.

const n=100500;
var a:array[1..n] of integer; i,l,j:integer;
function next(i:integer):Integer;
begin
 while (i<=n) and odd(a[i]) do inc(i);
 Result:=i;
end;

begin
 for i:=1 to n do readln(a[i]); l:=0; j:=1;
 while i<n do begin j:=next(i); if (j-i)>l then l:=j-i; i:=j; end;
 Write(l); readln;
end.

[akalinin]

Спасибо большое