использование "mod"

[Troll666]

Здравствуйте

Помогите мне пожалуйста разобраться:

Мне необходимо написать программу для реализации алгоритма RSA. У меня появилась сложность пока в одном моменте - неполучается посчитать результат целочисленного деления. Операция происходит по нажатию кнопки:

procedure TForm1.Button5Click(Sender: TObject);
var
k,j,n,i: integer;
s,v: string;
begin
k:=Memo1.Lines.Count-1;
for j:=0 to k do
    begin
    n:=0;
    s:='';
    s:=memo1.Lines[j];
    n:=length(s);
    For i:=0 to n do
           begin
           if s<>'' then
           case s[i] of
                       'а': insert(  FloatToStr(exp(StrToInt(Edit5.Text)*ln(1))  ),v,i);

                       'б': insert(  FloatToStr(exp(StrToInt(Edit5.Text)*ln(2))  ),v,i);
                       'в': insert(  FloatToStr(exp(StrToInt(Edit5.Text)*ln(3))  ),v,i);

                       'г': insert(  FloatToStr(exp(StrToInt(Edit5.Text)*ln(4))  ),v,i);

                       ...........//весь русский алфавит
                       'я': insert(  FloatToStr(exp(StrToInt(Edit5.Text)*ln(33))  ),v,i);

                       end;

    End;
    memo2.Lines.Add(v);
    v:='';

end;
end;

однако мне необходимо с такими строками, как:

insert(  FloatToStr(exp(StrToInt(Edit5.Text)*ln(1))  ),v,i);

выполнить ещё одно действие - найти результат целочисленного деления уже составленной функции:

insert(  FloatToStr(        exp(StrToInt(Edit5.Text)*ln(1))  mod 5          ),v,i);

но при компиляции пишет ошибки:

[Error] Unit1.pas(136): Operator not applicable to this operand type
[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'

строка ошибки - строка с mod

Как мне выполнить такое действие?
Спасибо

[Stilet]

insert(  FloatToStr(       trunc(exp(StrToInt(Edit5.Text)*ln(1)))  mod 5          ),v,i);

Хотя чет помоему алгоритм как то не так сделан...

[Troll666]

Спасибо, помогло!

Если не сложно, помогите разобраться по этой же теме.
У меня 2 компонента Memo и кнопка. В первом Memo я пишу текст, который надо зашифровать, потом нажимаю кнопку и зашифрованый вариант этого текста появляется во втором Memo - это так должно быть в теории)
Но у меня во втором Memo результат удачной шифровки появляется только при вводе одного символа в первый Memo, а при вводе больше одного символа - результат подаётся в виде чисел неясной последовательности.
Вот код нажатия кнопки:

procedure TForm1.Button5Click(Sender: TObject);
var
k,j,n,i: integer;
s,v: string;
begin
Memo2.Lines.Clear;
k:=Memo1.Lines.Count-1;
for j:=0 to k do
    begin
    n:=0;
    s:='';
    s:=memo1.Lines[j];
    n:=length(s);
    For i:=0 to n do
           begin
           if s<>'' then
           case s[i] of
                       'а': insert(FloatToStr(trunc(exp(StrToInt(Edit5.Text)*ln(1))) mod StrToInt(Edit6.Text)),v,i);
                       'б': insert(FloatToStr(trunc(exp(StrToInt(Edit5.Text)*ln(2))) mod StrToInt(Edit6.Text)),v,i);
                       'в': insert(FloatToStr(trunc(exp(StrToInt(Edit5.Text)*ln(3))) mod StrToInt(Edit6.Text)),v,i);
                       //весь русский алфавит
                       'я': insert(FloatToStr(trunc(exp(StrToInt(Edit5.Text)*ln(33))) mod StrToInt(Edit6.Text)),v,i);
                       end;

    End;
       if v = '1' then
       begin
       memo2.Lines.Add('а');
       v:='';
       end
       else if v = '2' then
       begin
       memo2.Lines.Add('б');
       v:='';
       end
       else if v = '3' then
       begin
       memo2.Lines.Add('в');
       v:='';
       end
       // весь русский алфавит
       else if v = '33' then
       begin
       memo2.Lines.Add('я');
       v:='';
       end
       else
       begin
       memo2.Lines.Add(v);
       v:='';
       end;
end;
end;

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

Спасибо

[evg_m]

for i:=1 to n

нумерация в строке (string) начинается с единицы

[Troll666]

Попробовал, но не помогло.
Тут как получается: я ввожу символ, он переводится в порядковый номер алфавита, с ним происходят вычисления и потом результат опять переводится в уже новый символ. Но так всё красиво получается только при вводе одного символа. При вводе уже двух - выводятся какие-то цифры(