Декодировать прилагаемый текст (Сложная задача на Delphi)

[Игорь[by 1ion]]

Декодировать прилагаемый текст, если он было закодирован по следующему алгоритму:
1.Для каждого символа С определяются порядковый номер строки I (счет с нуля) и позиция в строке J (счет с единицы).
2.Производиться проверка, не находиться ли символ в одном из множеств:
[0..9],[A..Z],[a..z],[А..Я] или [а..я]
3.Если нет, то символ проходит в выходную строку без изменений, иначе он заменяется по следующему алгоритму:
A:=ord(C)-I+J+ord(s[L-k+1]);
если A>Amax? то до тех пор, пока A>Amax, повторять A:=A-D;
если A<Amin, то до тех пор, пока A<Amin, повторять A:=A+D;
C:=chr(A)
Примечание:
Amin -код начального (минимального) символа соответствующего множества;
Amax -код конечного (максимального)символа соответствующего множества;
D -диапазон кодов(размер)соответствующего множества D:=Amax-Amin+1;
S[k] -символ из кодовой фразы (пароля)S, где индекс k вычисляется как остаток от целочисленного деления позиции J кодируемого символа С на длину L кодовой фразы S; при этом считается что при k=0 k:=L.
Пароль(кодовая фраза): Input
Пример текста: Фпэпт збблдзчьвб бжхшимжя чдуячтышд "XphtgEezgcaOpay" кдр, фыщиб ьэ мвю...


Наверно тут не найдется смельчаков которые смогут решить это...
P.S: Задание не простое а золотое

[Игорь[by 1ion]]

что не кто не знает как решить?

[Пепел Феникса]

никто не собирается писать за вас.

[Slym]

во во...
ты еще на слабо возьми

[Mad_Cat]

порядковый номер строки I (счет с нуля)

как его определить для

Пример текста: