Задача на шифрование и расшифровку текста

Program shifr;
const n=30;
var
 a:array[1..n] of integer;
 len:integer;
 s, r:string;
 i, j, v:integer;
 p, key:integer;
Begin
 write('Введите текст для шифрования: ');
 read(s);
 writeln('-------------------------------------------------');
 write('Введите количество цифр в ключе: ');
 readln(key);
 len:= length(s);
 while len mod key<>0 do
  begin
   s:=s+' ';
   inc(len)
  end;
 writeln('Введите ключ из ',key,' цифр: ');
 repeat
  v:=0;
  for i:=1 to key do
   begin
    read(p);
    a[i]:=p
   end;
  for i:=1 to key-1 do
   for j:=i+1 to key do
    if a[i]=a[j] then inc(v);
    if v<>0 then
     begin
      writeln ('Ошибка! Символы ключа не уникальны!');
      write('Введите ключ из ',key,' цифр: ');
     end
 until v=0;
  while v<>len do
   begin
    for i:=1 to key do
     r[i+v]:=s[a[i]+v];
     v:=v+key
   end;
 writeln('--------------------------------------------------');
 write('Зашифрованный текст: ');
 for i:=1 to len do
  write(r[i]);
 writeln;
End.

const k=8;
var s,s1,s2,s3:string;
    c:char;
    i,j:byte;
begin
writeln('Введите текст, слова разделены знаком подчеркивания');
readln(s);
while length(s) mod k<>0 do s:=s+' ';
s3:='';
i:=1;
while i<=length(s)-k+1 do
 begin
  s1:=copy(s,i,k);
  s2:=s1[3]+s1[8]+s1[1]+s1[5]+s1[2]+s1[7]+s1[6]+s1[4];
  s3:=s3+s2;
  i:=i+k;
 end;
for i:=length(s3) downto 1 do
if s3[i]=' ' then delete(s3,i,1);
writeln('Зашифрованный текст');
writeln(s3);
s:=s3;
while length(s) mod k<>0 do s:=s+' ';
s3:='';
i:=1;
while i<=length(s)-k+1 do
 begin
  s1:=copy(s,i,k);
  s2:=s1[3]+s1[5]+s1[1]+s1[8]+s1[4]+s1[7]+s1[6]+s1[2];
  s3:=s3+s2;
  i:=i+k;
 end;
for i:=length(s3) downto 1 do
if s3[i]=' ' then delete(s3,i,1);
writeln('Расшифрованный текст');
writeln(s3);
end.

const n=30;
var  a,b:array[1..n] of integer;
     s,s1,s2,r:string;
     i, j, p, key:byte;
     m:set of byte;
begin
writeln('Введите текст для шифрования: ');
readln(s);
writeln('-------------------------------------------------');
write('Введите количество цифр в ключе от 2 до ',n,' key= ');
readln(key);
while length(s) mod key<>0 do  s:=s+' ';
writeln('Введите ключ из ',key,' цифр: ');
m:=[];
for i:=1 to key do
 begin
  repeat
  readln(p);
  until(p in [1..key])and not(p in m);
  a[i]:=p;
  m:=m+[p];
 end;
r:='';
i:=1;
while i<=length(s)-key+1 do
 begin
  s1:=copy(s,i,key);
  s2:='';
  for j:=1 to key do
  s2:=s2+s1[a[j]];
  r:=r+s2;
  i:=i+key;
 end;
for i:=length(r) downto 1 do
if r[i]=' ' then delete(r,i,1);
writeln('--------------------------------------------------');
writeln('Зашифрованный текст: ');
writeln(r);
//создадим ключ для дешифровки
for i:=1 to key do
 begin
  for j:=1 to key do
  if a[j]=i then b[i]:=j
 end;
s:=r;
while length(s) mod key<>0 do s:=s+' ';
r:='';
i:=1;
while i<=length(s)-key+1 do
 begin
  s1:=copy(s,i,key);
  s2:='';
  for j:=1 to key do
  s2:=s2+s1[b[j]];
  r:=r+s2;
  i:=i+key;
 end;
for i:=length(r) downto 1 do
if r[i]=' ' then delete(r,i,1);
writeln('Расшифрованный текст');
writeln(r);
End.