var s,key,s_res,ss,sim:string;
i,p,N:integer;
begin
clrscr;
  key:=' [b]йцукенгшщзхъфывапролджэячсмитьбю[/b] ';
   Write('Ввести сообшение-');Readln(s);
     n:=Length(s);
 for i:=1 to n do begin
      sim:=copy(s,i,1);
      p:=pos(sim,key);
      str(p,ss);
     If (p<10) then ss:='00'+ss;
    If  (p<100) then ss:='0'+ss;
    s_res:=s_res+ss;
  end;
 write('Шифр-',s_res);
 readkey;
end

 If (p<10) then ss:='00'+ss;
 If  (p<100) then ss:='0'+ss;

 If (p<10) then ss:='00'+ss
 else If  (p<100) then ss:='0'+ss;

{ дополнительные переменные }
var
 err: integer;
 s_src: string;

 i := 1; s_src := '';
 { в строке s_res содержится зашифрованный текст }
 while i <= length(s_res) do
   begin
     ss := copy(s_res, i, 3);
     while ss[1] = '0' do
       delete(ss, 1, 1);
     val(ss, p, err);
     s_src := s_src + key[p];
     inc(i, 3)
   end;
 writeln( 'исходная строка:', s_src )