С++

[Leorr]

Друзья помогите переписать код программы Delphi в код для Builder C++....

Буду очень благодарен.
Вот код программы:

const morse: array [ord('А')..ord('Я')] of string [5] = (
'.- ','-... ','.-- ','--. ',
'-.. ','. ','...- ','--.. ',
'.. ','.--- ','-.- ','.-.. ',
'-- ','-. ','--- ','.--. ',
'.-. ','... ','- ','..- ',
'..-. ','.... ','-.-. ','---. ',
'---- ','--.- ','-..- ','-.-- ',
'..-..','..-- ','.-.- ','.....');
var
i:word;
begin

Memo2.Clear;
for i:=1 to length(Memo1.Lines.Text) do
begin
if Memo1.Lines.Text[i] in ['А'..'Я'] then
Memo2.Lines.Text := Memo2.Lines.Text + morse[ord(Memo1.Lines.Text[i])]+' '
else Memo2.Lines.Text := Memo2.Lines.Text + Memo1.Lines.Text[i];

end;