Дан целочисленный массив и число к.Вывечти индекс первого элемента большего к​

var

  arr:array[1..1000] of integer;

  i,N,k,Maxi:integer;

begin

write('Укажите k -  ');

read(k);

Maxi:=1;

write('Укажите кол-во эл-ов  -  ');

read(N);

for i:=1 to N do

begin

arr[i]:=1+random(40);

write(arr[i],'   ');

end;

for i:=1 to N do

begin

if (arr[i]>k)and(arr[i]<>k) then Maxi:=i;

  break;

end;

writeln;

writeln;

write('Макс.  - ',Maxi);

end.