Разделить слово по буквам

[Альнур]

Получается вводится слово, после выводится слово уже разделенное по буквам, после чего каждая буква заменяется на числа
Пример: вводится - Яблока
выводится Я б л о к а и потом - 33 2 13 16 12 1 (порядок в алфавите)

[ura_111]

Что ты можешь сделать из этого списка?

Ввести и сразу (просто) вывести это же слово, можешь?

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    i,n:integer;
    c:char;
begin
   Memo1.Clear;
   s:=Edit1.Text;
   For i:=1 to Length(s) do
   begin
      c:=s[i];
      Case s[i] of
      'а'..'я': Dec(c,32);
      'ё': Dec(c,16);
      end;
      If c<='Е' then
         n:=Ord(c)-191 else
         n:=Ord(c)-190;
      If c<='Ё' then
         n:=7;
      Memo1.Lines.Add(s[i]+' '+IntToStr(n));
   end;
end;