strpos.pas

{StrPos.PAS}
 
{ Пример программы для функции StrPos }
 
Uses Strings, WinCrt;
 
Var       P : PChar;
  S, SubStr : Array [0..79] Of Char;
Begin
 ReadLn(S);
 ReadLn(SubStr);
 P:=StrPos(S, SubStr);
 If P=NIL Then WriteLn('Подстрока не найдена.')
          Else WriteLn('Подстрока найдена в позиции ', P - S);
End.