Найдите в массиве целых чисел c (n), сформированном случайным образом, количество чисел, меньших заданного числа В( задаётся

Введем следующие обозначения: c - массив из n элементов (формировать его будем случайными целыми числами из любого промежутка, например, из промежутка [-50; 50]);  i - порядковый номер элементов массива; с[i] - значения элементов массива, S – заданное число, которое будем вводить с клавиатуры во время выполнения программы, k – количество чисел, меньших S. Будем использовать оператор цикла с параметром for. Тогда программа на языке программирования Pascal ABC может выглядеть так:

program zadacha;

uses crt;

const n=5; var i, s, k: integer;

c: array[1..n] of integer;

begin

k:=0;

writeln(\'Vvedite chislo S:\');

readln(S);

for i:=1 to n do  begin

c[i]:=random(50+50+1)-50;

write(c[i], \' \');

end;

writeln;

for i:=1 to n do

if c[i]<S then begin

k:=k+1;

write(c[i], \' \');

end;

writeln;

write(\'k=\', k);

end.

Количество чисел n можно брать любое.