Дан массив, упорядоченный по убыванию. Найти номер первого элемента, меньшего заданного числа а. Если таких элементов в массиве нет, то на экран должно быть выведено соответствующее сообщение — Pascal(Паскаль)

uses crt;
const n=5;
var a: array[1..n] of integer; i,j: byte; k,p: integer;
begin
randomize;
clrscr;
writeln('исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(19);
write(a[i]:3);
end;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
p:=a[i];
a[i]:=a[j];
a[j]:=p;
end;
writeln('отсортированный массив: ');
for i:=1 to n do
write(a[i]:3);
writeln;
write('введите значение определяющего параметра: ');
readln(k);
i:=1;
j:=0;
if a[i]>=k then
begin
while (i<=n) and (a[i]>=k) do
inc(i);
j:=i;
end
else j:=i;
if j=0 then write('элементов меньше заданного числа в массиве нет')
else write('первый элемент меньший заданного числа имеет индекс = ',j);
end.