Паскаль. Одномерный массив.

[Женька Good]

Преобразовать одномерный массив действительных чисел Y (N) = (-1.2,-0.1,8.3,-9.5,6.3,-2.7,9.9,-3.6,- 2,8) в массив V по формуле Vj = cos3Yj, где j = 1 .. N (N = 9).

то, что получилось у меня, но не работает...

Program Xme1ez_Mas;
Uses CRT;
Type mymassiv=array[1..9] Of Real;
     const chisla:mymassiv=(-1.2,-0.1,8.3,-9.5,6.3,-2.7,9.9,-3.6,- 2,8);
Var v:mymassiv;
    j:integer;
Begin
CLRSCR;
  For j:=1 to 9 do
   Begin
    v[j]:=cos(3*y);
    Write(v[j]:6:1);
   end;
Readln;
end.

помогите плз

[Niro]

держите

Program Xme1ez_Mas;
Uses CRT;
Type mymassiv=array[1..9] Of Real;
     const y:mymassiv=(-1.2,-0.1,8.3,-9.5,6.3,-2.7,9.9,-3.6,- 2.8);
Var v:mymassiv;
    j:integer;
Begin
CLRSCR;
  For j:=1 to 9 do
   Begin
    v[j]:=cos(3*y[j]);
    Write(v[j]:6:1);
   end;
Readln;
end.