Паскаль. Поиск первого отличного символа в строке.

[ddeman666]

39.11

Составьте функцию, которая находит в строке первый символ, который не входит в другую заданную строку.

в заранее спасибо.

[p51x]

и чаво? в гугле и поиске забанили?

заранее пожайлуста

[Stilet]

в гугле и поиске забанили?

Автору попался суровый Челябинский гугл

ddeman666

Например:

  var i:integer;s1,s2:string;
begin
 s1:='wello';s2:='world';
 i:=1;
 While (i<length(s1))and(pos(s1[i],s2)<>0) do inc(i);
  write(i);
  { TODO -oUser -cConsole Main : Insert code here }
 readln;
end.