[Yurk@]

навскидку:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
M : array [0..9] of integer;
i,fEidx, sEidx, newS, oldS :integer;
begin
oldS:=0;
Label1.Caption:='';
for i:=0 to Length(M)-1 do
  begin
  randomize;
  M[i]:=random(1000);
  Label1.Caption:=Label1.Caption+'|'+IntToStr(M[i]);
  end;
for i:=1 to Length(M)-1 do
  begin
  newS:=M[i-1]+M[i];
  if oldS<newS
    then
    begin
    oldS:=newS;
    fEidx:=i-1;
    sEidx:=i;
    end;
  end;
ShowMessage(IntToStr(fEidx)+'('+IntToStr(M[fEidx])+')'+'+'+IntToStr(sEidx)+'('+IntToStr(M[sEidx])+')='+IntToStr(oldS));
end;