массивы и подпрограммы

[Lelik-852]

Здравствуйте. Помогите пожалуйста
1) Найти суммы компонент вещественной матрицы m[n, k] по строкам и записать их в одномерный массив v [n].
2) Заменить значения компонент в строках матрицы m[n, k] на 1, если сумма соответствующей строки окажется больше 0, на −1, если сумма меньше 0, на 0, если сумма равна 0.
3) Найти минимальное значение компонент массива v [n]. Если минимумов в массиве несколько, то запомнить индекс первого встреченного при переборе из минимумов.
На экран вывести исходную матрицу m[n, k], массив v [n], изменённую матрицу m[n, k], первую встреченную минималь-
ную компоненту с индексом.

CONST
A:ARRAY[1..4,1..2] of REAL=((-1.9, -3.1),(0, 0),
(0, 0.8),(3.8, -8.8));
VAR
Number_of_Negative_Elements:ARRAY[1..2] of BYTE;
R:REAL;
i,j:INTEGER;
BEGIN
FOR i:=1 TO 4 DO
BEGIN
FOR j:=1 TO 2 DO
Write(A[i,j]:6:1);
WriteLn;
END;
end.
и всё, а дальше не могу ........ подскажите как дальше - аналитическую часть я понимаю а вот как в паскале оформить - увы никак((((
Заранее спасибо