Поиск и вывод индеса элемента массива

[sofiya333]

Помогите пожалуйста в выводе индекса элемента массива [k], никак не могу найти как правильно это сделать
Программа поиска в упорядоченном массиве числа методом деления (бинарный поиск)

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
n,i,k,l,r,m:integer;
f:boolean;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
{введем массив по возрастанию}
a[1]:=random(5);
for i:=2 to n do
a[i]:=a[i-1]+random(5)+1;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i]:4);
writeln;
write('Введите число для поиска k=');
readln(k);
{бинарный поиск}
l:=1;
r:=n;
f:=false;
while(l<=r)and not f do
begin
m:=(l+r)div 2;
if k<a[m] then r:=m-1
else if k>a[m] then l:=m+1
else f:=true;
end;
if f then write('Число ',k,' есть в массиве')
else write('Числа ',k,' нет в массиве');
readln
end.

[p51x]

else f:=true;

else begin f:=true; INDEX := m; end;