próbuje napisac algorytm dzielenia na sylaby

mam taka stala
samogloski:array[0..7] of string=('a','e','i','u','o','ę','ą','y');
a nastepnie kod który powinien wylapac samogloske i pokaz wszystkie litery przed nia

procedure TForm1.Button1Click(Sender: TObject);
var
len, licz, licz2, licz3, sylaba, i:integer;
jak:string;
begin
len:=length(edit1.text);
for licz := 0 to len do
begin
for licz2 := 0 to 7 do
begin
i := len-licz;
sylaba :=len-i;
if edit1.text[licz] = samogloski[licz2] then
begin
for licz3:=0 to sylaba do
begin
jak:=jak+edit1.text[licz3];
edit2.text:=jak;
end;
end;
end;
end;
end;

co zle robie prosze o pomoc. [browar] z gory dziekuje
[dopisane]
to jest dopiero początek pózniej bedzie pobierał kilka liter w przód i proównywał czy sie nadaja do sylaby czy tez nie

algorytmu dzielenia na sylaby raczej nie da się napisać (chyba nawet Dryo próbował), ze względu na złożoność i nieregularność słów w naszym ukochanym języku.

http://4programmers.net/Forum/viewtopic.php?id=32961

Znając język polski i jego wyjątki (więcej niż powinno być), żeby zrobić takie coś algorytm zajmowałby bardzo dużo, byłby bardzo wolny w działaniu, a poza tym żeby wiedzieć jak i co dzielić musiał byś skończyc studia z wyróżnieniem ministra edukacji (ofcoz studia z polskiego)

Uważam temat za zamkniety, gdyz nie podolalem temu zadaniu

:-) :-) :-)

nieźle się tego naszukałem, bardzo ciężko znaleźć, ale JEST !!

podaje link do mojego chomika, wrzuciłem tam algorytm dzielący na sylaby

http://chomikuj.pl/Piomik4561/programowanie/Delphi+-+Pascal/algorytmy

Pozdrawiam
Piotrek W

No niestety program ten nie potrafi poradzic sobie ze slowami, jak aero•klub, au•to, au•tor, puen•ta. Ogolnie pomija zasady laczenia dwuglosek (/au/), czlonow rdzennych ("aero") i ogromnej masy wyjatkow, pochodzacych w naszym jezyku z jezykow obcych.