Преобразуйте в код ascii выражение: for i=1 to n

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

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