Типовые задачи на Паскале! Массивы, прошу помогите.

1. Дано:
N - Целое семизначное число, вводится пользователем.
Проверка на семизначность обязательна!
Выполнить:
Записать в массив A[i] цифры этого числа.

2. Дано:
A[i] – массив целых чисел, состоящий из 5 элементов.
Элементы массива вводятся пользователем из диапазона [-10,10].
Проверка ввода обязательна!
Выполнить:
Вывести на экран сумму неположительных и произведение неотрицательных элементов.

3. Дано:
A[i] – массив целых чисел, состоящий из 5 элементов.
Элементы массива вводятся пользователем.
Выполнить:
Вывести на экран среднее арифметическое элементов.

4. Дано:
A[i] - массив вещественных чисел, состоящий из элементов, выбранных случайным образом из диапазона [0;5] (в вещественном числе 3 знака после запятой).
Выполнить:
B[i] - Отсортировать массив A[i] по возрастанию.
C[i] - Отсортировать массив A[i] по убыванию.

5. Дано 10 целых чисел.
Выполнить:
Вычислить разницу между максимальным и минимальным из них.

6. Дано:
A - массив вещественных чисел, заданных случайным образом из диапазона от 2 до 12, с точностью до 2 знаков после запятой. Размер массива: N=17.
Найти:
Максимальный элемент из его элементов с нечетными номерами.

Буду невероятно благодарен!!!

1)USES CRT;VAR A:array[1..100] of Longint;    s:integer;    x,i:Longint;BEGINCLRSCR;      Repeat                  Writeln('Введите 7-ми значное число');                  Readln(x);                  i:=x;                  s:=0;                  while i>0 do                        begin                             i:=i div 10;                              s:=s+1;                        end;                 if s > 7 then Writeln('Вы ввели число больше');                 if s < 7 then Writeln('Вы ввели число меньше');         Writeln;      until s=7;      for i:=1 to 7 do                 begin                        A[i]:=x mod 10;                       x:=x div 10;                  end;      for i:=1 to 7 do                  Write(A[i],' ');READLN;END.