Как найти позицию второго пробела в строке S (в pascal) ?

Question

Как найти позицию второго пробела в строке S (в pascal) ?

Answer 1

Например так:

k:=false;
i:=pos(' ',s);
repeat
  inc(i);
  if (s[i]=' ') then k:=true;
until k;
writeln(i);