массивы, памогите понять массивы Опции

[maksimla]

можете малинькие программки написать чтобы понять массивы?
а вот и массив

type masyvas = array [1..5] of integer;
var mas: masyvas;
i, k: integer;

мне надо узнать чему будет равняется mas[4] выполнив такое

a) for i := 1 to 5 do
mas[i] := i;
b) k := 15;
for i := 1 to 5 do
mas[i] := k + i;
c) for i := 5 downto 1 do
mas[i] := i;
d) k := 1;
for i := 10 to 14 do
begin
mas[k] := i;
k := k + 1
end;

а мои ответы вот
a)4
b)19
c)2
d)6
правильна
а попоже исче выложу что я нипонял

[maksimla]

вот сам написал ради проверки
c)

type masyvas = array [1..5] of integer;
var mas: masyvas;
i, k: integer;
begin
for i := 5 downto 1 do
begin
mas[i] := i;
writeln(mas[i]);
end;
readln
end.

вот что выводит на экран
5
4
3
2
1
и ответ должен быть 2
а вот и следущий чевота ниполучается но написал так
d)

type masyvas = array [1..5] of integer;
var mas: masyvas;
i, k: integer;
begin
k := 1;
for i := 10 to 14 do
begin
mas[k] := i;
k := k + 1 ;
writeln(k);
end;
readln
end.

а вот что на экране
2
3
4
5
6
и ответ 5
так в чуем неправильна