Найдите в массиве целых чисел 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]lt;S then begin

k:=k+1;

write(c[i], );

end;

writeln;

write(k=, k);

end.

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