Шифрование Опции

[Pistoletka]

Шифрование методом Виженера. Программа работает.

Program shifr; 
 var
  kl,sh:string;
  th: array[1..255] of Char;
  ch,dh,ah:array[1..255] of integer;
  l,l2,i:integer;  
 begin
   writeln('Input key:');
   readln(kl);
   writeln('Input word:');
   readln(sh);
   l:=Length(kl);
   l2:=Length(sh);
   while l<l2 do
    begin
     l:=Length(kl);
     l2:=Length(sh);
     kl:=kl+kl;
    end;

   for i:=1 to Length(kl) do
    ch[i] := ord(kl[i]) - ord('a');
   for i:=1 to Length(sh) do
    dh[i]:=ord(sh[i]) - ord('a');
   for i:=1 to Length(sh) do
        ah[i] := (ch[i] + dh[i]) mod 26;
   for i:=1 to Length(sh) do
     th[i]:= chr (ah[i] + ord('a'));
   writeln('shifr text: ');
   writeln(th)
end.

Можете мне объяснить, почему зашифрованный текст выводится таким образом с [ и через запятые?

Input key:
sf
Input word:
or
shifr text: 
[g,w,

[Федосеев Павел]

Попробуйте на листе бумаги выполнить шифрование. Тогда смысл каждого из циклов станет понятнее.

[Pistoletka]

Попробуйте на листе бумаги выполнить шифрование. Тогда смысл каждого из циклов станет понятнее.

Пробовала, все равно не понимаю.