Массивы

[stim-12]

Где ошибка?
procedure TForm1.Button1Click(Sender: TObject);
var i:byte;s:integer;z:array [1..5] of integer;
begin
s:=0;
for i:=1 to 5 do
s:=s+z[i];
label1.Caption:=FloatToStr(s);
end;
end.
Хочу посчитать сумму массива

[puporev]

label1.Caption:=FloatToStr(s);
замени на label1.Caption:=IntToStr(s); числа то целые.

[bura]

Значения элементам массива как присваиваются?

[MalexG]

Вот так.

z[i] := 5;

[MalexG]

Если значения берутся из текстовых полей, то:
z[i] := StrToInt(Edit1.Text);