Шифрование методом Виженера (Pascal)

[Azatot717]

Помогите пожалуйста разобраться как работает программа. Около строк с 15 по 30 напишите объяснение что происходит. Программа кодирует слова шифром Виженера. Но по какому принципу происходит этот процесс в программе не могу понять.

program Viz;
uses crt;
var
a,b,c,d:string;
i,j,k,t,q:integer;
begin
t:=1;
writeln('Enter text for coding');
readln(a);
writeln('Enter code-word');
readln(d);
q:=length(d);
c:='';
b:='abcdefghijklmnopqrstuvwxyz';
for i:=1 to length(a) do
for j:=1 to length(b) do
begin
if a[i]=b[j] then
begin
if t>length(d) then
t:=1;
for k:=1 to length(b) do
begin
if d[t]=b[k] then
q:=j+k-1;
if q>26 then
q:=q-26;
end;
c:=c+b[q];
t:=t+1;
end;
end;
writeln(c);
readkey;
end.

[s-andriano]

Совет: в алгоритме гораздо проще разбираться по его словесному описанию, чем по тексту программы.
Да и качество кода существенно ниже среднего, а потому разбираться в нем без очень острой необходимости (а я такой необходимости не вижу) вряд ли целесообразно.
Намного проще написать свою программу по словесному описанию алгоритма.