Billentyűzetről beolvasott sor szavakra bontása (Szavak.pas) program Szavak; uses crt; var s,sb:string; i2:integer; BEGIN clrscr; write('Kerek egy szoveget: '); readln(s); Bekérünk egy szöveget. sb:=s+' *'; A bekért szöveget berakjuk a StringBuffer típusú sb változóba úgy, hogy a végére egy szóköz után *-ot rakunk. i2:=pos(' ',sb); Az i2 változóba beállítjuk az sb változóban lévő első szóköz pozícióját. A pos() függvény 0-t ad vissza, ha nem talál szóközt. while (i2>0) do begin Amíg van szóköz, addig működik a ciklus. if(i2>1) then begin Hogyha talált egy szóközt és ez nem az első helyen van, akkor kimásolja az sb változóból az első pozíciótól a szóköz előtti karakterig tartó karaktersorozatot, azaz egy szót és ezt kiírja a képernyőre. writeln (copy(sb,1,i2-1)); end; sb:=copy(sb,i2+1,255); Az sb-t úgy módosítjuk, hogy a már kiírt szót ne tartalmazza. i2:=pos(' ',sb); i2-be újra beletesszük az sb-ben található első szóköz pozícióját. end; END.