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

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, Spin;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
 
 
var
 m:array[1..10] of integer;
s,i,k:integer;
 
n:extended;
begin
  n:=StrToFloat(Edit1.Text);
  Memo1.Lines.Add ('s='+Edit1.Text);
 
s:=0;
s:=s+ord('0');
randomize;
for I := 1 to length(m) do
m[i]:=random(-100);
 
k:=0;
for I := 1 to length(m) do begin
                        if m[i]<0 then inc(k) else break;
                           end;
 
 showmessage('последовательность из '+inttostr(s)+' начинается с '+inttostr(k)+' отрицательных чисел');
   Memo1.Lines.Add('s=');
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Clear
 
end;
 
end.