Mi a megoldása ennek? (free pascal)

Free pascalban valahogy így nézne ki a kód:

program cserebere;

{$mode objfpc}{$H+}

const

maganhangzok : Set of Char=['A','a','E','e','I','i','O','o','U','u'];

var

beszoveg: string;

i : integer;

begin

writeln('Kérem a max 255 karater hosszú szöveget: ');

readln(beszoveg);

for i:=1 to length(beszoveg) do

begin

if beszoveg[i] in maganhangzok then beszoveg[i]:='_';

end;

writeln(beszoveg);

end.

Az ékezetes karaktereket nem ellenőrzi. Ha szeretnéd, hogy azt is nézze, akkor írd át a programot. Annyit már igazán megtehetsz te is...

Na, jó. Nehogy azért kapj egyest, mert nem írtam meg neked rendesen a leckédet íme egy olyan megoldás ami az ékezetes betűket is megeszi:

program cserebere;

{$mode objfpc}{$H+}

uses

Classes, SysUtils;

const

Maganhangzok : array[0..17] of String=('Á','É','Í','Ó','Ö','Ő','Ú','Ü','Ű',

'á','é','í','ó','ö','ő','ú','ü','ű');

var

BeSzoveg: string[255];

i : integer;

begin

WriteLn('Kérem a max 255 karater hosszú szöveget: ');

ReadLn(BeSzoveg);

for i:=0 to 17 do

begin

BeSzoveg:=StringReplace(Beszoveg,Maganhangzok[i],'_',[rfReplaceAll]);

end;

WriteLn(BeSzoveg);

end.

Hát ennyire szerencsétlen nem lehetsz. Tessék, az alábbi linkről letöltheted a programot:

*****

Benne van a forráskód, és a futtatható fájl is.