Помогите исправить.

[Smile189]

Помогите исправить.
Режим расшифровки не работает

const 
  n=30;
// ЗДЕСЬ код шифрования
procedure DoShifr;
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);
  end;
//  код расшифрования
procedure DoRashifr;
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
        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;
 
 
 
 
var
  vkey:  integer;
begin
  repeat
    writeln('укажите режим работы:1-шифр. 2-расш. 0-закончить работу:');
    readln(vkey);
    case vkey of
    1: DoShifr;
    2: DoRashifr;
    0: ;//ничего не делаем и выходим по until
    else writeln('выбран несуществующий режим работы');
    end;
  until vkey<>0;
end.

[evg_m]

writeln('Введите текст для шифрования: '); // наверное для РАСшифрования ?
  readln(s); //вводим
  writeln('-------------------------------------------------');
  write('Введите количество цифр в ключе от 2 до ',n,' key= ');
  readln(key); //вводим
  while length(s) mod key<>0 do s:=s+' ';
  writeln('Введите ключ из ',key,' цифр: ');
??? ГДЕ вводим