Подскажите как пожалуйста надо это yoonmin_in_my_heart перевести в цифры заранее огромное спасибо

//Если нужно будет перевести другую строку в цифры, то не забудь поменять параметр Size. В него нужно будет записать количество символов в строке

Program Test;

const Size = 19;

Var i, tmp: integer; Str, Resultat: string;

Begin

Str := yoonmin_in_my_heart;

for i := 1 to Size do
begin
tmp := ord(Str[i]);
Resultat := Resultat + tmp
end;

Writeln(Resultat);

End.