В Паскале есть стандартная функция Pos, которая возвращает начальную позицию вхождения подстроки в строку или 0, если такое вхождение не обнаружено. С её помощью данная задача решается очень просто.
var
s:string;
ip,iv:integer;
begin
Write('Введите строку: '); Readln(s);
ip:=Pos('П',s); iv:=Pos('В',s);
if ip*iv=0 then Writeln('П или В или обе не найдены в тексте')
else
if ip<iv then Writeln('П встретилось раньше В')
else Writeln('В встретилось раньше П')
end.
Тестовое решение:
Введите строку: НА ЛУГУ ПАСЕТСЯ КОРОВА
П встретилось раньше В
