Как будет в 16-ти битной кодировки "скоро новыий год! "

//Наверное, мелся ввиду Unicode
var s:string;i:integer;
begin;
s:='"Скоро новыий год!"';
for i:=1 to length(s) do
write('-',ordunicode(s[i]));
end.

Вывод:
34-1057-1082-1086-1088-1086-32-1085-1086-1074-1099-1080-1081-32-1075-1086-1076-33-34