Перемешивание массива, кодирование.

uses crt;
type mas=array[1..52] of char;
const decode:mas=('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','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 code:mas;
    s,s1:string;
    a:set of byte;
    i,j,k,m:byte;
begin
clrscr;
randomize;
writeln('Английский алфавит:');
for i:=1 to 26 do
write(decode[i],' ');
writeln;
for i:=27 to 52 do
write(decode[i],' ');
writeln;
writeln;
a:=[];
m:=0;
for i:=1 to 52 do
 begin
  m:=m+1;
  repeat
   k:=random(52)+1;
  until not(k in a);
  a:=a+[k];
  code[m]:=decode[k];
 end;
writeln('Кодированный алфавит:');
for i:=1 to 26 do
write(code[i],' ');
writeln;
for i:=27 to 52 do
write(code[i],' ');
writeln;
writeln;
writeln('Введите текст английскими буквами:');
readln(s);
s1:='';
for i:=1 to 52 do
for j:=1 to length(s) do
if decode[i]=s[j] then
s1:=s1+code[i];
write(s1);
readln
end.

for i:=1 to 52 do
for j:=1 to length(s) do