посчитать суммы от A до B

[dyc9]

Найти сумму элементов массива, принадлежащих промежутку от А до В (А и В вводятся с клавиатуры).

программа уже написана, не получается поставить условия для опеределения промежутка

var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function Strngrd_value_RND(Sender: TObject; n: integer): boolean;
var
  i: integer;
begin
  with Sender as TStringGrid do begin
    ColCount := n ;
    for i := 0 to ColCount - 1 do
      Cells[i, 0] := IntToStr(Random(1000));
  end;//with
end;//function Strngrd_value_RND
 
 
procedure TForm1.btn1Click(Sender: TObject);
type
  TM = array of integer;
var
  m: TM;
  a, b: Integer;
  i:integer;
  summ:integer;
begin
  SetLength(m, strtoint(edt3.Text));
 
  a := strtoint(edt1.Text);
  b := strtoint(edt2.Text);
 
  //считать в массив
  for i := low(m) to high(m) do
    m[i] := StrToint(strngrd1.Cells[i, 0]);
  //
  summ := 0;
  for i := low(m) to high(m) do if (a>=i) and (b<=i) then summ:=summ+m[i];
 
  lbl1.Caption :=intToStr(summ);
 
end;
 
procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
  with (Sender as TEdit) do
  begin
    case Key of
    '0'..'9',#8: ; // цифра <Backspace>
 
    else Key := #0; // символ не отображать
    end;// case
  end; // with
end;
 
procedure TForm1.strngrd1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
#8,'0'..'9' : ; // цифры и клавиша <Backspace>
#13: // клавиша <Ener>
if Strngrd1.Col < Strngrd1.ColCount - 1
then Strngrd1.Col := Strngrd1.Col + 1;
else key := Chr(0); // остальные символы запрещены
end;
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  try
    if Strngrd_value_RND(Strngrd1, strtoint(edt3.Text)) then
      ShowMessage('Ахтунг! Strngrd1 заполнен случайными числами!');
  except
    ShowMessage('Ахтунг! ошибка обработки!');
  end;
end;
 
end.

ошибка скорее всего здесь, ну как исправить?

  summ := 0; 
  for i := low(m) to high(m) do if (a>=i) and (b<=i) then summ:=summ+m[i]; 
  
  lbl1.Caption :=intToStr(summ);

[Mad_Cat]

for i := low(m) to high(m) do if (a<=m[i]) and (b>=m[i]) then summ:=summ+m[i];

[dyc9]

подскажите, где по нажатию кнопки "Рандомное заполнение" задаются значения переменным A и B?

т.е программа считает нормально, если числа вводятся с клавиатуры, а если рандомно, то выдает ошибку потому что не могу задать для этого случая A и B