массивы.

[Froost]

Помогите пожалуйста все время выдает out of bounds

Вводится массив. Найти минимум из сумм 3-х его последовательных элементов. Например, для массива
1 3 4 6 7

данные суммы равны 8, 13 и 17, минимум равен 8.


var i,n,z,x,c,f,g,h,l:integer;
var q,w,e,r,t,y:string;
mas :array of string;

begin
L:=1000;
Setlength(mas,ListBox1.Items.count) ;

for i:=0 to ListBox1.Items.Count-5 do

mas[i]:=ListBox1.Items[i];
mas[i+1]:=ListBox1.Items[i+1]; - vot v etom meste
mas[i+2]:=ListBox1.Items[i+2];
mas[i+3]:=ListBox1.Items[i+3];

q:=mas[i+1];
w:=mas[i+2];
e:=mas[i+3];
r:=mas[i+4];

n:=strtoint(q);
z:=strtoint(w);
x:=strtoint(e);
h:=strtoint(r);

f:=(n+z+x);
g:=(z+x+h);

if (L>f) or (L>g) then
begin
if (f<g) then
begin
l:=f;
end
else
begin
l:=g;
end;
end
else
begin
l:=l;
end;
y:=inttostr(l);
edit1.text:=y;

end;


procedure TForm1.Button2Click(Sender: TObject);
var s:string;
begin
s:=edit1.text;
listbox1.Items.Add(s);
end;