[angvelem]

Код:

var
  F : TextFile;
  buf : array[0..9] of Integer;
  S : String;
  I, J : Integer;
begin
{$I-}
  AssignFile(F, 'MyFile.txt');
  Reset(F, 1);
  for I := 0 to 9 do
  begin
    ReadLn(F, S);
    buf[i] := StrToInt(S);
  end;
  CloseFile(F);
{$I+}  
  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;

Вот примерно так.