Шифрование поблочно, Delphi

[Petr1K]

procedure TForm1.Button1Click(Sender: TObject);
var a : Array[1..10] of integer;
    s,s1,s2 : string;
    i,g,L,k,n : integer;

    begin
a[1]:=3; a[2]:=5; a[3]:=1; a[4]:=8; a[5]:=10;
a[6]:=7; a[7]:=2; a[8]:=9; a[9]:=4; a[10]:=6;
  s := edit1.text;
  L := length(s);
  s1 := '';
 if (frac(l/10))=0 then
  n := round((L / 10)) 
  else
  n := trunc((L / 10))+1; 
  for k := 0 to n-1 do
  begin
  for I := 1+k*10 to 10+k*10 do
    s1 := s1 + s[a[i-k*10]];
  end;
    edit2.Text := s1;


    end;

Всем доброго времени суток, вот мой набросок шифрования поблочно. Блок=10 символов. 11 символ должен шифровать как 1, 12=2 и тд. Проблема в том, что если текст состоит из 10+ символов, прога не шифрует, блоки вычисляются правильно, цикл шифрования, вроде, тоже.
Помогите, кто чем сможет.

[evg_m]

вар 1.

for I := 1+k*10 to 10+k*10 do
s1 := s1 + s[k*10 + a[i-k*10]];

вар 2

for i:=1 to 10 do
s1:=s1 + s[k*10 +a[i] ];

[Petr1K]

написал процесс расшифровки аналогично шифрованию,учитывая вышеописанный комментарий. Все работает нормально при условии если количество символов равно 10,20 и тд.

procedure TForm1.Button2Click(Sender: TObject);
var a : Array[1..10] of integer;
    s,s1,s2 : string;
    i,g,L,k,n : integer;

    begin
a[3]:=1; a[5]:=2; a[1]:=3; a[8]:=4; a[10]:=5;
a[7]:=6; a[2]:=7; a[9]:=8; a[4]:=9; a[6]:=10;
  s := edit2.text;
  L := length(s);
  s1 := '';
 if (frac(l/10))=0 then
  n := round((L / 10))
  else
  n := trunc((L / 10))+1;
  for k := 0 to n-1 do
  begin
  for i:=1 to 10 do
s1:=s1 + s[k*10 +a[i] ];
  end;
    edit3.Text := s1;
end;

Не подскажете, что не так?
Пример: "Привет,как дела?"
Шифр: "иеП а,рквтдлк"
Расш-ка: "Привет, как|д" (вместо | стоит какой-то непонятный символ)

[evg_m]

длина блока 4
блок (a) [4,3,2,1]
текст (s) длины 3 (ABC)
попробуйте вручную получить первую букву ШТ.
возможно натолкнет на мысль.

Он и называется блочным потому что применяется к ЦЕЛОМУ блоку.