Преобразовать введеные символы каждого слова в массив из натуральных чисел

program pr1;
const
  alphabetRu:string[66]= 'ёйцукенгшщзхъфывапролджэячсмитьбюЁЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ';
  wordsQuatity=10;
type
  // тип слово, ограничение в 40 букв, сохр ориг, ниж и верхний регистр слова
  word=array[1..3,1..40] of byte;
var
 words:array[1..wordsQuatity] of word; tempString:string;
 i, i2,i3, tempIndex:byte;
 
begin
  For i3:=1 to wordsQuatity do begin
    WriteLn('введите слово ',i3,' или end для выхода из программы.');
    ReadLn(tempString);
    if tempString='end' then break;
    for i:=1 to Length(tempString) do begin
      // заполняем оригинальное слово
      words[i3,1,i]:=pos(tempString[i],alphabetRu);
      // заполняем слово- нижний регистр
      tempIndex:=pos(tempString[i],alphabetRu); if tempIndex>33 then Dec(tempIndex,33);
      words[i3,2,i]:=tempIndex;
      // заполняем слово- верхний регистр
       tempIndex:=pos(tempString[i],alphabetRu);if tempIndex<34 then Inc(tempIndex,33);
      words[i3,3,i]:=tempIndex;
        end;
    end;
  i:=1;
  while(i<>0) do begin
  writeln('введите инфо, какое слово вы хотите просмотреть, в следующем порядке:');
  WriteLn('номер слова, пробел, номер версии: 1- ориг, 2- нижний, 3- верхний регистр');
  WriteLn('или "0 0" для окончания программы');
  Read(i); ReadLn(i2);
  // достаём инфо из массива words
  for i3:=1 to Length(words[i,i2]) do if words[i,i2,i3]=0 then write('') else write(alphabetRu[words[i,i2,i3]]) ;
  WriteLn();
    end;
end.