помогите пожалуйста надобно это 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.