Ввести с клавиатуры n-любых чисел ,найти количество отрицательных чисел( паскаль )

1.var 2.a, product : real; 3.i, n : integer; 4.begin 5.product: = 1; 6.readln(n); 7.for i : = 1 to n do begin 8.readln(a); 9.if a < 0 then 10.: = product*a; 11.end; 12. writeln(product: 0: 2);

программа на паскале:

program xxx;

  var i, n, s : integer;

begin

  write ('введите n =' );

  readln (n);

  s: =0;

  for i: =1 to n do

    s: = s+ sqr(i+1);

  writeln ('сумма =' , s);

  readln

end. 

program xxx;

var a,s : string;

    i: integer;

begin

    writeln ('введите слово и символ-');

    readln (s,a);

    for i: =1 to length(a) do

        if copy (s,i,1)=a then writeln (i);

    readln

end.