Заполняете массив, получаете значения P и K, затем делаете подобную проверку:
Код:
nomp:=-1;
nomk:=-1;
for i := 0 to N - 1 do
begin
if a[i]=P then nomp:=i;
if a[i]=K then nomk:=i;
end;
Если значения P и K есть в массиве, то их индексы будут записаны в переменные nomp и nomk, если нет - nomp, nomk останутся равными -1.