3
{ Program to demonstrate the IndexByte function. }
10
Buffer : Array[1..ArraySize] of Byte;
16
For I:=1 To ArraySize do
17
Buffer[I]:=Random(MaxValue);
21
J:=IndexByte(Buffer,ArraySize,K);
23
Writeln('Value ',K,' was not found in buffer.')
25
Writeln('Found ',K,' at position ',J,' in buffer');