Преобразуйте в код 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