[angvelem]

При чём тут WEB-программирование? Считать из текстового файла можно построчно командой ReadLn, либо разом, к примеру, в TStringList. Проходим по циклу и сравниваем с 0, если меньше умножаем на предыдущее найденное значение, если найдено в перый раз, то запоминаем.

Код:

var
  I, J : Integer;
  buf : array[0..9] of Integer;
begin
  J := 0;
  for I := 0 to 9 do
    if buf[i] < 0 then
      if J = 0 then
        J := Buf[i]
      else
        J := J * buf[i];
end;