Язык паскаль

Даны натуральное число N и вещественные числа b1, b2, …, bn. Определить сумму тех вещественных
чисел, которые больше P.
Входные данные
Во входном потоке в первой строке через пробел записаны два числа: натуральное число N (1 <= N <=
1000) и вещественное число P (-10000 <= P <= 10000). Во второй строке через пробел записаны N
вещественных чисел bi(-10000 <= bi <= 10000).
Выходные данные
В выходной поток следует записать сумму тех вещественных чисел bi
, которые больше P

Program n_1;

var n, i:integer;P, b, s: real;

begin

   read(n, P);

   s:=0;

   for i:=1 to n do begin

       read(b);

       if b>P then s:=s+b;

   end;

   writeln(s:0:10);

end.