Как заменить символ в строке на порядковый номер алфавита Pascal ABC.net

[_PoLL_]

Как заменить символ в строке на порядковый номер русского алфавита?
пример
дано: абвгд
получили: 12345


Pascal ABC.net

[Serge_Bliznykov]

а эта тема http://programmersforum.ru/showthread.php?t=323447 для чего?

Сообщение от _PoLL_

Как заменить символ в строке на порядковый номер русского алфавита?
пример
дано: абвгд
получили: 12345

а если дана строка машка
что должно получиться?

а так, я бы просто сделал так:

const alphabet : string = 'абвгдежзиклмнопрстуфхцчшэюя';
var s, s2 : string;
begin
  s := 'абвгд';
  s2 := '';
  foreach var ch in s do s2 := s2 + Pos(ch,alphabet);
  WriteLn(s2)
end.