В массиве действительных чисел с от 1 до 11 посчитать сумму отрицательных элементов, произведение положительных и вывести на экран номера нулевых элем

в массиве действительных чисел с от 1 до 11 посчитать сумму отрицательных элементов, произведение положительных и вывести на экран номера нулевых элементов.
ПОМОГИТЕ ПОЖАЛУЙСТА!!!с помощью паскаля, а числа задавать можно любым способом.

  • var a:array[1..11] of real;
    sum,proiz:real;
    i:integer;
    begin
    for i:=1 to 11 do read(s[i]);
    for i:=1 to 11 
       begin
       if a[i]<0 then sum:=sum+a[i];
       if a[i]>0 then proiz:=proiz*a[i];
       if a[i]=0 then writeln(a[i]);
       end;
    writeln(sum);
    writeln(proiz);
    end.
    должно пойти