[lmikle]

Код:

function FindPos(ANumber : Integer; AList : String) : Integer;
var
  I : Integer;
  sNmb : String;
begin
  Result := -1;
  sNmb := IntToStr(ANumber);
  I := 1;
  While I < Length(AList) Do
    Begin
      If Copy(AList,I,Length(sNmb)) = sNmb Then
        Begin
          Result := Int(I/2) + 1;
          Break;
        End;
      I := I + 2;
    End;
end;

ANumber - твое k;
AList - твой ряд двузначных в виде строки.
возвращает номер пары, если найдено или -1 - если нет.

ЗЫ. Писал навскидку, так что могут быть очепятки. По логике вроде все правильно.