Дана последовательность из n целых чисел

[student_23]

Здравствуйте! Просьба проверить на ошибки.
Если таковые имеются. Исправить. Спасибо.

Дана последовательность из n целых чисел. Определить, со скольких отрицательных чисел она начинается.

procedure TForm1.Button1Click(Sender: TObject);
var
  m: array of integer; 
  i, k, n: integer;    
begin
  n := StrToIntDef(Edit1.Text, 0);
  SetLength(m, n);        
 
  randomize; 
for i := 0 to length(m)-1 do    
    m[i] := randomrange(-100, 100);   
  k := 0;        
  for i := 0 to length(m)-1 do  
  begin
    if m[i] < 0 then   
      inc(k)       
    else 
      break; 
  end;                      
Memo1.Lines.Add('Последовательность из '+inttostr(n)+' начинается с '+inttostr(k)+' отрицательных чисел.');
end; 


end.

[newerow1989]

Delete...

[digitalis]

Ох, Неверов, Неверов.. Вылетит из цикла на первом же отрицательном числе. Если бы количество ответов соответствовало качеству...
У студента все правильно. Зачет.

[Serge_Bliznykov]

присоединяюсь к ответу digitalis:

у студента всё правильно, у Неверова - нет.

[newerow1989]

Сообщение от student_23

Определить, со скольких отрицательных чисел она начинается.

Кое-как понял. А я думал, что с какой позиции отрицательных чисел она начинается. (Немножно недоглядел)