1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

to get silbentrennung string welchesWort
local int zeichenAnzahl, i
local logical trennenErlaubt
local string z, z0, z1, v
local stack trennPositionen
zeichenAnzahl = charCount(welchesWort)
if zeichenAnzahl > 2
trennenErlaubt = false
vokale = "a,e,i,o,u,ä,ü,ö"
-- "sch" wie in "A_sche" -- "ch" wie in "Untersu_chen"     -- "ph" wie in "Ste_phan" -- "ck" wie in "Zu_cker"
-- "pf" wie "A_pfel" -- "br" wie in "Unter_brechung"     -- "pl" wie "Finanz_plan" -- "tr" wie in "An_trag"
-- "st" wie in "Auf_stehen" -- "gr" wie in "Hinter_grund"
verbindungen = "sch,ch,ph,ck,pf,br,pl,tr,st,gr"
trennungen = "-,/,\,*,#,;,.,+,=,),(,&,!,?,<,>,:, ,_,~"
step i from 2 to (zeichenAnzahl-1)
z0 = char i-1 of welchesWort
if trennenErlaubt = false and istIn(z0,vokale)
trennenErlaubt = true
end if
if trennenErlaubt
z = char i of welchesWort
z1 = char i+1 of welchesWort
v = z0 & z
if v = "ch" and i > 2 and char i-2 of welchesWort = "s"
v = "sch"
end if
if istIn(z1,vokale) and istIn(z,vokale) = false and istIn(z,trennungen) = false and istIn(z0,trennungen) = false
if istIn(v,verbindungen)
push (i-charCount(v)+1) onto trennPositionen
else
push i onto trennPositionen
end if
end if
end if
end step
end if
return trennPositionen
end silbentrennung					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

function silbentrennung(welchesWort: String): TStack;
var
    zeichenAnzahl, i: Integer;
    trennenErlaubt: Boolean; //Oder ist Logical Trinär-Logik ;-)???
    z, z0, z1, v: String;
    trennPositionen: TStack; //TStack anderweitig selbst implementieren, kompatibel zum Source)
begin
    zeichenAnzahl := Length(welchesWort);
    if zeichenAnzahl > 2 Then
    Begin
        trennenErlaubt := false;
        vokale := 'a,e,i,o,u,ä,ü,ö';
        verbindungen := 'sch,ch,ph,ck,pf,br,pl,tr,st,gr';
        trennungen := '-,/,\,*,#,;,.,+,=,),(,&,!,?,<,>,:, ,_,~';
        for i := 2 to (zeichenAnzahl-1) do
        Begin
            z0 := welchesWort[i-1];
            if not trennenErlaubt and istIn(z0,vokale) Then
            Begin
                trennenErlaubt := true;
            end;
            if trennenErlaubt Then
            Begin
                z := welchesWort[i];
                z1 := welchesWort[i+1];
                v := z0 & z; //LStrConcat?
                if (v = 'ch') and (i > 2) and (welchesWort[i-2] = 's') Then
                Begin
                    v := 'sch';
                end;
                if istIn(z1,vokale) and not istIn(z,vokale) and not istIn(z,trennungen) and not istIn(z0,trennungen) then
                Begin
                    if istIn(v,verbindungen) Then
                    Begin
                        trennPositionen.push(i-charCount(v)+1);
                    end
                    else
                    Begin
                        trennPositionen.push(i);
                    end;
                end;
            end;
        end;
    end;
    Result := trennPositionen;
end;