Массивы в паскаль

[Protect0r]

У меня ужасный завал с паскалем....

Помогите пожалуйста решить 2 задачи:

1) В одномерном массиве состоящем из n численных элементов вычислить:

а) номер минимального элемента массива
б) сумму элементов массива расположенных между первым и вторыи отрицательными элементами.

[Protect0r]

Программа 2:

а) Характеристикой столба целочисленной матрицы назовем сумму модулей его отрицательных нечетных элементов. Переставляя столбцы заданной матрицы, расположить их в соотвецтвии с ростом характеристик(оформить в виде процедуры)

б) Найти сумму элементов в тех столбцах,которые содержат хотябы один отрицательный элемент(оформить в виде функции)



Заранее большое спасибо

[Protect0r]

Есть кое какие наработки,но они делают не то чо нада....
Первая часть находит минимальный жлемент но не указывает его номер в массмве,а вторая часть находит сумму между первым и паследним элементом,но не между отрицательными....

program min_even;
var 
a:array [1..10] of integer;
i: integer;
min:integer;
begin
for i:=1 to 10 do begin
writeln('vvedite element massiva');
readln(a[i]) ;
end;
min:=i;
for i:=1 to 10 do
if (a[i]<min) then min:=a[i];
  writeln ('minimalnii elemnt massiva raven:',min);
  readln;
end.

Program p1;
const MaxN=1000;
var m:array [1..MaxN] of real;
    m2:array [1..MaxN] of real;
    i,k,n:integer;
    summa:real;
begin
writeln ('Vvedite N (razmernosti massiva):');
readln (n);
writeln ('Vvedite sam massiva(elementy ukazati cherez probel):');
for i:=1 to n do read (m[i]); writeln;
k:=0;
for i:=1 to n do
if m[i]<>0 then begin inc(k); m2[k]:=m[i];
  end;
for i:=2 to k-1 do summa:=summa+ m2[i];
writeln ('REZULTAT= ',summa:3:0);

readln;
end.

[Protect0r]

чо никто не поможет ?