procedure TForm1.Button1Click(Sender: TObject);
var
  john:array[1..50] of integer;
  jane:array[1..50] of integer;
  u, y, first, last, count, n, l, h, hui, v:integer;
begin
  memo1.clear;
  memo2.clear;
  n:=StrToInt(Edit1.Text);
  randomize;
  for count:=1 to n do
  begin
    john[count]:=random(10)-5;
    Memo1.Lines.Add(inttostr(john[count]));
  end;
  for h:=1 to n do
      if john[h]<0 then
         begin
              first:=h;
              break;
         end;
  for l:=n downto 1 do
      if john[l]<0 then
         begin
              last:=l;
              break;
         end;
u:=0;
y:=0;
  for u:=first to last do
      begin
           y:=y + john[u];
      end;
  edit2.text:=inttostr(y);
end;
end.