castilho

Protótipo: function pos(const substring: string; const s: string): integer;

Descrição: Retorna o índice da substring em s, se esta a contiver. Caso cont rário, 0 é retornado. A busca é case-sensitive.

Exemplo:

  
program exemploPos;
 var
    s : string;
 begin
    s := 'The first space in this sentence is at position : ';
    writeln(s, pos(' ', s));
    s := 'The last letter of the alphabet doesn''t appear in this sentence ';
    if (pos ('Z', s) = 0) and (pos('z', s) = 0) then
       writeln (s);
 end.