const
N = 100;
type
myArray = array[1..N] of Integer;
function indexOf(const A: myArray; value: Integer): Integer;
var
i: Integer;
begin
indexOf := -1;
for i := 1 to N do begin
//
if (A[i] = value) then begin
//
indexOf := i;
break;
end;
end;
end;