Дано целое число К и набор нулевых целых чисел: признак его завершения число 0. Вывести количество чисел в наборе, меньших К — Pascal(Паскаль)

program af;
const
n=5;
var
a:array [1..n] of integer;
i,kol,k,j:integer;
begin
For i:=1 to n do
begin
a[i]:=random(10);
writeln(a[i]);
j:=i;
if a[i]=0 then break;
end;
writeln('Введите');
readln(k);
For i:=1 to j do
begin
if a[i]<k then
inc(kol);
end;
writeln('Количество = ',kol);
end.