Задача на функции и процедуры

[Vania96]

Здраствуйте,помогите мне написать программу на Паскале на процедуры и функции.
Вот условие задачиЖ
В одномерном масиве ,который состоит из n действительных элементов ,посчитать:
1)количество элементов массива больших за С (число ,которое вводится с коавиатуры).
2)Произведение элементов массива, расположеных после максимального по модулю элемента.
Пункт 1,2 надо сделать в процедуре или функции,в основной проге ток ввод,вывод.
Вот мой текст программы

program p6;
type
mas=array[1..10000] of real;
var
m:mas;
i,n_z,len,j,s:byte;
dob,c,f:real;
otwet:char;
Function res_dob(m1:mas;len1,s1:byte):real;
var
i:byte;
max_mod:real;
begin
max_mod:=abs(m1[1]);
for i:=1 to len1 do
    if abs(m1[i])>max_mod then
       begin
       max_mod:=m1[i];
       j:=i;
       end;
    s1:=1;
for i:=j to len1 do res_dob:=s1*m1[i];
end;
    Procedure g(c1,m1:real;len1:byte);
    var i:byte;
    v:array[1..100] of real;
    begin
    for i:=1 to len1 do
    if c<m[i] then
    m[i]:=v[i];
    end;


        begin
        n_z:=1;
        repeat
              writeln('Vvedite C:');
              readln(c);

              write('Vvedite dlinu massiva: ',n_z);
              readln(len);
                    if(len<=0) or (len>100) then
                    writeln('Ne korectno!')
                    else
                    begin
                    for i:=1 to len do
                        begin
                        writeln('Vvedite [',i,']');
                        readln(m[i]);
                        end;
                    dob:=res_dob(m,len,s);
                    writeln('Nomer zapyska raven: ',n_z);
                    write('Ishodni masiv ');
                    for i:=1 to len do
                        begin
                        write(m[i]:9:2);
                        writeln;
                        writeln('Dobutok raven: ',dob:9:2);
                        end;
                    end;
                    g(m[i],len,s);
                    for i:=1 to len do
                    writeln(' ',f);
                    inc(n_z);
                    writeln('n/y');
                    readln(otwet);
                    until otwet<>'y';

        readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Stilet]

Вот мой текст программы

Чем он не устроил?

[Vania96]

Считает неправильно,но я уже написал работающюю прогу