Паскаль. Массивы.

[xCarnaGe]

Ребят, срочно нужна помощь.. Проблемы сгущаются над головой и на всё времени нет.
Надеюсь на вашу помощь.
1 Дан массив целых чисел. Удалить из него элементы, значения которых больше среднего арифметического, сдвинув все элементы в начало массива.
2 Даны два одномерных массива целых чисел A и B. Сформировать массив С, который состоит из элементов A и В, присутствующих в обоих массивах в одном экземпляре.
3 Инвертировать каждое слово текста.

[fbus]

ну раз сам решать не хочешь, пиши в аську, сделаю

[IT-man]

1)

var
 a:array[1..100] of integer;
 i:integer;
 n:integer;
 sa:real;
 j:integer;
f:boolean;
begin
writeln('N=');
readln(n);
sa:=0;
for i:=1 to n do
begin
a[i]:=random(20);
sa:=sa+a[i];
write(a[i]:4);
end;
sa:=sa/n;
f:=true;
repeat
f:=false;
for i:=1 to n do
if a[i]>sa then begin f:=true;break;end;
if f then begin
for j:=i to n-1 do
 a[j]:=a[j+1];
n:=n-1;
end;
until  not f;
writeln;
Writeln('sa=',sa:6:3);
for i:=1 to n do
write(a[i]:4);
readln;
end.