Шифрование данных шифр трифид

[Ervin_Aders]

Помогите, пожалуйста. Не может обратится к массиву для шифрования, все выводит правильно кроме зашифрованного сообщения (последней строки).

type
  bifid=array[1..3,1..3,1..3] of char;
const a:bifid=((('A','B','C'),('D','E','F'),('G','H','I')),
               (('J','K','L'),('M','N','O'),('P','Q','R')),
               (('S','T','U'),('V','W','_'),('X','Y','Z')));
var f,g,d,z:byte;
i,j,k:byte;
c:word;
l,n,m,q,w,e:string;
s1,s2,s3,s4,s5,s:string;
begin
  s:='TRIFID_AND_BIFID';
  g:=length(s);
  l:='';
  n:='';
  m:='';
  for f:=1 to g do
           begin
             for i:=1 to 3 do
               for j:=1 to 3 do
                 for k:=1 to 3 do
             if s[f]=a[i,j,k] then begin
                                     str(j,l);
                                     str(k,n);
                                     str(i,m);
                                     s1:=s1+l;
                                     s2:=s2+n;
                                     s3:=s3+m;
                                     s4:=s1+s2+s3;
                                   end;
                                   z:=1;
                                   while z<length(s4) do begin
                                     for i:=1 to 3 do
                                       for j:=1 to 3 do
                                         for k:=1 to 3 do
                                     str(j,l);
                                     str(k,n);
                                     str(i,m);
                                   if s4[z]=l then
                                              if s4[z+1]=n then
                                                           if s4[z+2]=m then
                                                           s5:=s5+a[i,j,k];
                                                           z:=z+3;
                                                         end;
                                                       end;
writeln(s);
writeln(s1);
writeln(s2);
writeln(s3);
writeln(s4);
writeln(s5);
readln;
end.

Вывод

TRIFID_AND_BIFID
1332322122213232
2333313121323331
3211113121311111
13323221222132322333313121323331321 1113121311111
ZZZZZZZZZZ
Как видите в последней строке он прописывает только последний элемент массива а должен вывести зашифрованный текст.
Очень буду благодарен за помощь.




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.