Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Функция Pos() паскаль.
Функция Pos(Substr : String; StrArg : String) возвращает целочисленное значение, если Substr встречается внутри StrArg. Данное число равен индексу первого символа Substr внутри StrArg. Если же Substr не встречается, возвращается 0 (ноль).

program Pos_Sim.pas;

  {Функция Pos() паскаль}
var
  {s_Str1 в этой строке ищем, s_Str2 эту строку ищем}
  s_Str1, s_Str2: string;
  i, n: integer;
  begin
  s_Str1 := 'Hello, world!.';
  s_Str2 :='wor';
  n:=pos(s_Str2, s_Str1);
  WriteLn('Исходная строка: ', s_Str1);
  WriteLn('Эту строку ищем: ', s_Str2);
  WriteLn('Номер первого символа: ',n,' строки ', s_Str2);
 
  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:

Функция Pos() паскаль.