Задача: обработка файлов., В продолжении вчерашней темы. Опции

[Psychologist]

Следуя 6 правилу форума, создаю новую тему.
Задача: Программирование циклических процессов.

Задание такое же, что и в предыдущей задаче. Только теперь действия выполняются не в массиве, а в файле.
Нужно вычислить:
1. Номер минимального по модулю элемента;
2. Сумму модулей элементов, расположенных после первого отрицательного элемента.

Вот, начал... Ток во-первых Паскаль выдаёт ошибку: "100: Disk read error.", указывая на строку "read (f, buf);", хотя диск и файл существуют. Во-вторых, не могу завершить задачу (вторую часть). Помогите, плз...

Program OAIP_L03;
Var
   i, a, min, sum, buf : Longint;
                  f : file of Longint;

Begin
   assign (f, 'D:\File_2.dat');
   reset (f);

   read (f, min);
   min:=abs(min);
   a:=1;

   while not eof (f) do begin
      read (f, buf);
      if abs(buf) < min then begin
         min:=abs(buf);
         a:=filepos (f)-1;
      end;
   end;


   writeln ('nomer min. el. - ', a);

   close (f);


End.

[klem4]

Ну так запихни этот код в отдельную программу, если так хочешь ... пусть она создаст файл. А потом работай с ним из своей программы.