Дана последовательность чисел

const
  ArrNum : array[1..10] of Extended = (-1, -2, -3, -4, -5, 6, 7, 8, 9, 0);
var
  i, Count      : Integer;
begin
  Count := 0;
  for i := Low(ArrNum) to High(ArrNum) do begin
    case ArrNum[i] < 0 of
      True  : Inc(Count);
      False : Break;
    end;
  end;
  ShowMessage('Количество ведущих отрицательных чисел равно: ' + IntToStr(Count));
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  ArrNum : array[1..10] of Extended = (-1, -2, -3, -4, -5, 6, 7, 8, 9, 0);
var
  i, Count      : Integer;
begin
  Count := 0;
  for i := Low(ArrNum) to High(ArrNum) do begin
    case ArrNum[i] < 0 of
      True  : Inc(Count);
      False : Break;
    end;
  end;
  ShowMessage('Количество ведущих отрицательных чисел равно: ' + IntToStr(Count));
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  ArrNum : array[1..10] of Extended = (-1, -2, -3, -4, -5, 6, 7, 8, 9, 0);
var
  i, Count      : Integer;
begin
  Count := 0;
  for i := Low(ArrNum) to High(ArrNum) do begin
    case ArrNum[i] < 0 of
      True  : Inc(Count);
      False : Break;
    end;
  end;
  Edit1.Text := 'Количество ведущих отрицательных чисел равно: ' + IntToStr(Count);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j, Count      : Integer;
  StrTmp        : String;
  LastChar      : Char;
begin
 
  StrTmp := Edit1.Text;
 
  //Цикл обработки строки, которая содержит входную последовательность чисел.
  LastChar := 'x';
  i := 1;
  while i <= Length(StrTmp) do begin
    if
      ( not (StrTmp[i] in [' ', ';']) )
      and ( ( LastChar in [' ', ';'] ) or (i = 1) )
    then begin
      //Обнаружено начало записи числа.
      //Ищем окончание записи числа.
      j := i;
      for j := i to Length(StrTmp) do begin
        if j < Length(StrTmp) then begin
          if StrTmp[j + 1] in [' ', ';'] then begin
            Break;
          end;
        end;
      end;
      //Исследование значения числа.
      case StrToFloat( Copy(StrTmp, i, j - i + 1) ) < 0 of
        //Если число отрицательное - подсчитываем его.
        True  : Inc(Count);
        //Если число положительное - поиск завершён.
        False : Break;
      end;
      //Счетчик цикла i перемещаем на позицию, в которой расположен последний
      //символ в записи числа.
      i := j;
    end;
    //Запоминаем последний обработанный символ.
    LastChar := StrTmp[i];
    Inc(i);
  end;
 
  ShowMessage('Количество ведущих отризательных чисел = ' + IntToStr(Count));
end;