String - странность или кривые руки

[capta1n]

если вы хорошо разбираетесь в делфи - я тогда вам поверю, просто сам на турбо работаю пока - делфи почти не знаю - не знал, что там не актуально присваивать значения функциям если через result - хорошо, учту пока делфи не разучивал

[elsin]

О, шифрует правильно. Тогда правильно ли я понимаю, что обратная будет такой:

function Affinna_DeCrypt(s:String;a:integer;b:integer):string;

const
  SizeA = 93; //Размер алфавита
  RusA = ' !%()*+,-./0123456789:;<=>?^№абвгдежзийклмнопрстуфхцчшщъыьэюяАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ'; //Алфавит
var i, P,t,m:integer;
    temp:String;
begin
m:=93;
temp:='';
//удаление символов сообщения, не входящих в алфавит
for i := 1 to length(s) do if pos(s[i],RusA)<>0 then temp:=temp+s[i];
s:=temp;
for i:=1 to length(s) do
  begin
  P:=pos(s[i],RusA)-1;       
   while ((P-b) mod a)<>0 do
   P:=P+m;
   s[i]:=RusA[((P-b) div a)];

   end;
   Result:=s;
end;

Правда при неверном ключе она иногда возвращает короткие дешифровки. Но с правильным ключом возвращает то, что нужно.

[elsin]

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