Підкажіть будь ласка що не правильно роблю і як зробити. Ось умова:
Утворити і вивести масив y з елементами yk=fi+1(k), де і - 7, k=1..12.   f=|sin(2x-1.5)+3sin(x^2)|+2.38  . У разі відсутності шуканих даних, вивести повідомлення про це. Вивести найбільший елемент масиву та номер передостаннього додатного елемента.
(Не розумію чому у виводі максимальний елемент = 0)

Мова програмування Паскаль; середовище-турбо паскаль

program zhovniriv;
var y:array [1..12] of real;
    k: integer;
    i,x,n:integer;
    f,max:real;
begin
     for k:=1 to 12 do
     begin
     write('введіть елементи масиву');
     read(y[k]);
     i:=7;
     x:=i+1;
     f:=abs(sin(2*x-1.5)+3*sin(sqr(x)))+2.38;
     y[k]:=f*k;
     end;
     y[1]:=max;
     if y[k]>y[1] then y[k]:=max;
     writeln('найбільший елемент масиву=',max:2:1);
end.