Задачки по паскалю

Всем доброго время препровождения)) вот возникла необходимость решить пару задачек ( сам в этом не айс как селен)
1. Дан массив Y(14) Вычислить среднее арифметическое элементов массива Y и отклоненние от среднего для каждого элемента.
2. Дан массив Z(13) расположить в массиве R сначало положительные , а затем отрицательные элименты массива Z. Буду благодарен за помощь)

давно информатики уже нету но вот попробовал:

Program visavi;
uses crt;
var i,n,S,SA,O:integer;
A:array[1..14] of integer;
begin
clrscr;
writeln('Vvedite kolichestvo elementov v massive');
read(n);
begin
for i:=1 to n do
begin
clrscr;
writeln('Vvedite ',i,' element massiva');
read(A[i]);
end;
for i:=1 to n do
writeln(i,' = ',A[i]);
S:=1;
for i:=1 to n do
S:=S+A[i];
SA:=S/n;
for i:=1 to n do
O:=SA-A[i];
clrscr;
writeln('Srednee znachenie = ',SA);
for i:=1 to n do
writeln('Otklonenie ',i,' elementa = ',O);
readln;
end.

правда не проверял... могут быть и ошибки...
в общем!
n - количество елементов в массиве
SA - среднее значение
O - отклонение каждого елемента от среднего

а второе чтото тип такого вставить еще надо:

for i:=1 to n do
if A[i]>=0 then A[i]=R[i] else A[i]=Z[i]
clrscr;
writeln('Polojitelnie:');
for i:=1 to n do
writeln('   ',R[i]);
writeln('Otricatelnie:');
for i:=1 to n do
writeln('   ',Z[i]);

в описании переменных тоже описать ети массивы как в первой задачке...
PS такие задания ниразу не делал... думаю правильно

2 благодарствую за старание)) +

4 спасиб за плюс... но ты проверь сначала а то вдруг туфта... какие ошибки будет выводить напиши... или те письменно только надо? в тетради.

5. да фиг с ошибками)) будет над чем на парах разбиратся... p.s а так выдает Error 26: Type mismatch в 21 строке)

в 3 возможно не будет работать условие... мошт надо поменять местами:

if A[i]>=0 then R[i]=A[i] else Z[i]=A[i] 

может и пойдет

6 ну хз... может в паскале деление не так выглядет?
и кстати тама где присваивание к S:=1; поставь ноль а не единицу... ошибся малясь

8 я сам не помню какое там деление) и тетрадей старых по информатике не осталось...