Шифровка строки методом смещения кода символов

[Geddar]

Здравствуйте, задача такая есть строка 10 символов, все цифры, нужно из нее получить другую строку в 10 символов по принципу
1) взять символ старой строки получить его код ;
2) отнять от полученого числа порядковый номер символа;
3) результат снова преобразовать в символ и добавить в новую строку;

сам алгоритм я в принципе реализовал

var
b:array [1..10] of integer;
i:integer;
begin
b[1]:=ord('2');
b[2]:=ord('4');
b[3]:=ord('5');
b[4]:=ord('6');
b[5]:=ord('0');
b[6]:=ord('0');
b[7]:=ord('8');
b[8]:=ord('0');
b[9]:=ord('4');
b[10]:=ord('9');

for i:=10 downto 1 do
richedit1.Text:= richedit1.Text + chr(b[i]-i);

но как видите 10 символов исходной строки приходиться задавать прямо в коде, подскажите как сделать так чтобы брать их например из edit

[AndrzejX]

var S: String;
begin
S:=Edit1.Text;
for i:=1 to 10 do
b[i]:=S[i];
end;

[Geddar]

Блин, все гениальное просто, спасибо за помощь

Очень приятно, что вам понравилось. Вы не обратили внимание на темы, где иногда подолгу не дают ответов? Смею вас заверить - вполне обоснованно.
Иногда люди просто паникуют, а потом - оп-па - и самостоятельно находят решение... Это - вдвойне приятно для форума.
Вот и вы сейчас испытали почти физическое удовлетворение...
Слава форуму!
С уважением, Михалыч. Закрываем.