Если правильно понял задачу 

program Znanija;
var
s:string;
i:integer;
begin

s := FOR I=1 TO N;

for i:=1 to 11 do 
write(ord(s[i]), );

end.


Результат: 70 79 82 32 73 61 49 32 84 79 32