Ошибка в строке 6 не могу понять какая, помогите.

Var
mas: array [0..5] of integer;
i: integer;
Begin
for i:=0 to 7 do
mas[i] := i;


for i:=0 to 7 do
writeln (mas[i]);



End.

const    n = 5;var    mas: array [0..n] of integer;    i: integer;begin    for i := 0 to n do     begin        mas[i] := i;        writeln(mas[i]);    end;end.Ошибка в размерности массива или в пределах цикла, потому чтоб не ошибаться на будущее используйте константу