Integer в Char?

[Zloy_Doomer]

Доброго времени суток господа программисты...У меня стоит следующая задача: нужно взять некую строку, разложить ее на символы(по одному), далее перевести ети символы в цифры с помощью функции ORD, потом прибавить к каждому полученному числу 1, перевести полученное число обратно с помощью функции CHAR , и потом собрать обратно...

делаю ето примерно так:

//в цикле раскладываю слово(может быть и цифры) на символы
for q:=0 to Length(нужная переменная)
//и пытаюсь присвоить новое значение
нужная переменная[q] := ORD(нужная переменная[q]);

далее пока не придумал надеюсь на ваши советы, так как занимаюсь подобным впервые, и опыта немного...Думал так же, как вариант использовать динамический массив, но не знаю ка кето реализовать на практике...

Проблема состоить в том что на второй строчке программы вылазить ошибка несовместимотси типов Char и Integer...Но я не знаю функции которая бы могла привести одно в другое...Вообщем парюсь уже два дня, и ничего нового в голову не приходит...Надеюсь на ваши свежие мысли...

[raxp]

не вылазит, приведите ваш код полностью...

var s: string;
    i: integer;
begin
 s:= 'testik';
 for i:=1 to length(s) do
  s[i]:= char(1+ord(s[i]));
 caption:= s

[Zloy_Doomer]

Спасибо большое так работает, но наоборот никак...

var s: string;
    i: integer;
begin
 s:= 'testik';
 for i:=1 to length(s) do
  s[i]:= char(ord(s[i]-1));
 caption:= s

Блин совсем башка уже не варит нверное....

Upd Понял что ето я туплю не затеми скобками постаивл единицу...

var s: string;
    i: integer;
begin
 s:= 'testik';
 for i:=1 to length(s) do
  s[i]:= char(ord(s[i])-1); вот так работает...
 caption:= s