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

Например так:k:=false;i:=pos(' ',s);repeat  inc(i);  if (s[i]=' ') then k:=true;until k;writeln(i);