В массиве хранятся сведенья об общей стоимости товара. проданных фирмой за каждый день марта.определить количество дней в которые стоимость проданных товаров превысила значения S — Pascal(Паскаль)

program try;
const
n=31;
var
mas :array[1..n] of integer;
i,k,s :integer;
begin
k:=0;
writeln('Введите S');
readln(s);
writeln('Введите данные продаж');
for i:=1 to n do
begin
readln(mas[i]);
if mas[i]>s then
k:=k+1;
end;
writeln('Количество ',k);
end.