одномерный массив

[Артем37]

ребят помогите пожалуйста с задачками на делфи.
1)
Даны два одномерных массива состоящих из N элементов. Для каждой пары элементов массива А и В с одинаковыми четными индексами но с разными знаками. найти их среднее значение и сформировать из них массив С. если эта операция невозможна написать об этом сообщение.
2) Сформировать массив С, уплотнив одномерный массив А(20), выбросив из него макс и мин элементы.

[Hacker19_90]

Наработки в студию1

[Артем37]

из второго задания...

max:=-1e20; min:=1e20;
for i:=1 to n do
if max<a[i] then
max:=a[i]
else
if min>a[i] then
min:=a[i];

j:=0;
for i:=1 to n do
if (a[i]<max) and (a[i]>min) then
begin
j:=j+1;
s[j]:=a[i];
stringGrid2.Cells[j-1,0]:=FloatToStr(s[j]);
end;

вот такие наброски..надо все это дело соединить..голова к ночи вообще не варит =(