求子数组的最大和

{
求子数组的最大和
题目：
输入一个整形数组，数组里有正数也有负数。
数组中连续的一个或多个整数组成一个子数组，每个子数组都有一个和。
求所有子数组的和的最大值。要求时间复杂度为O(n)。

例如输入的数组为1, -2, 3, 10, -4, 7, 2, -5，和最大的子数组为3, 10, -4, 7, 2，
因此输出为该子数组的和18
}
procedure TForm1.btn1Click(Sender: TObject);
var
  intarr: array[0..19] of Integer;
  i, b, sum : Integer;
  str : string;
begin
  str :='';
  Randomize;
  for i := 0  to Length(intarr) - 1 do
  begin
    intarr[i] := 20 - Random(40);
    str := str + IntToStr(intarr[i])+', ';
  end;
  mmo1.Lines.Add(str);
  b := 0;
  sum := 0;
  for i := 0 to Length(intarr) - 1  do
  begin
    if (b <= 0 ) then
      b := intarr[i]
    else
      b := b + intarr[i];
    if (sum < b) then sum := b;
  end;
  mmo1.Lines.Add('The Max Sum = ' + IntToStr(sum));
end;