Помоигте с задачей на массив, массив Опции

[Juhn]

Помогите пожалуйста написать программу в паскале. Я с массивами вообще не знаком, а прогу написать нужно. Надеюсь кому - то не сложно будет написать. Очень надеюсь на вашу помощь.
Условие: Дан массив из 10 целых чисел. Найти сумму элементов данного массива.

[Juhn]

program masiv;
var
i, rez, mas:integer;
begin
For i:= 1 To 10 Do
rez:= rez + mas[i];
Writeln(rez);
readln;
end.

mas-имя, rez-результат.

Что тут нитак ? Програмка не работает :/