Turbo pascal programozás? Feladat lent

A megfejtés az, hogy ezt a feladatot te kaptad, tehát te fogod megcsinálni.

Mutasd meg, hol tartasz eddig, és írd le, mi a konkrét kérdésed, mi az, ami nem megy. És segítünk.

Program Awords;

Uses Crt,Classes;

Const

aw:Array[1..14] of Char=('a','e','i','o','ö','u','ü','á','é','í','ó','ő','ú','ű');

Var

i,o,r:Byte;

szoveg:String;

szavak:TStringList;

ok:Boolean;

Begin

ClrScr;

Write('Kérem a szöveget: ');

ReadLn(szoveg);

szavak:=TStringList.Create;

szavak.Delimiter:=' ';

szavak.DelimitedText:=szoveg;

for i:=0 to szavak.Count-1 do begin

ok:=True;

for o:=1 to 14 do

if UpCase(szavak[i][1])=UpCase(aw[o]) then begin

ok:=False;

for r:=Length(szavak[i]) downto 1 do Write(szavak[i][r]);

Write(' ');

end;

if ok then Write(szavak[i],' ');

end;

szavak.free;

WriteLn;

WriteLn('Nyomjon meg egy billentyűt a folytatáshoz...');

ReadKey;

End.