Подпрограммы. Опции

[Psychologist]

Всем доброго времени суток!
Очень нужно решить одну задачку на подпрограммы.
Помогите, пожалуйста, в понедельник ужо надо сдавать, а я в эту тему вообще не въезжаю.
Очень надеюсь на Вашу помощь...

В программе должны быть использованы 2 подпрограммы (на каждое действие), точнее - Функции.
Файл, в котором выполняются действия расположен в директории "D:\File_2.dat", тип данных - Longint.
Нужно вычислить:
1) Номер минимального по модулю элемента;
2) Сумму модулей элементов, расположенных после первого отрицательного элемента.

[compiler]

я тебе написал для первой функции, вторую напишиш по аналогии...

Код

var
        min, now:longint;
        fi:file of longint;    //обрати внимание типизированый файл!если что исправишь...

begin
        assign(fi, fp);
        reset(fi);
        read(fi, min);
        while (not EOF(fi)) do begin
                read(fi, now);
                if now < abs(min) then
                        min := now;
        end;
        minel:=min;
        close(fi);
end;

begin
        writeln(minel('./fi'));    //передается адрес файла, исправь на тот что надо тебе..
end.

если что спрашивай...

[Psychologist]

compiler, большое спасибо!

[compiler]

compiler, большое спасибо!

пожалуйсто, спрашивай еще..