program LinearSearch;

{ Billig. Wenn es nicht mit Sentinel wäre, würde ich sogar sagen: billigst! }
const
   TableSize = 20;
	 
var
   Table     : Array[1..TableSize + 1] of Byte;
   Index     : LongInt;
   Key	     : Byte;

function LinSearch(Key : Byte) : LongInt;
var
   Index : LongInt;
begin
   Table[TableSize + 1] := Key;
   Index := 1;
   while Table[Index] <> Key do
      Inc(Index);
   if Index > TableSize then Index := -1;
   LinSearch := Index;
end;

begin
   Randomize;
   for Index := 1 to TableSize do
   begin
      Table[Index] := Random(20);
      Writeln(Index:2,': ',Table[Index]:2);
   end;
   Writeln;
   Write('Schlüssel: ');
   Readln(Key);
   Index := LinSearch(Key);
   if Index <> -1 then
      Writeln('Gefunden bei ',Index)
   else Writeln('Nicht gefunden');
end.