простейший способ шифрования текста состоит в табличной замене каждого символа другим символом. Помогите решить в Delphi

[Julilav]

Один из простейших способов шифрования текста состоит в табличной замене каждого символа другим символом. Выбрать некоторую таблицу, разработать способ ее представления, программно реализовать.

Пример таблицы
Происходит замена согласных букв согласно таблицы (например «Б» заменяется на «П», а «П» - на «Б» и т.д.), гласные буквы не заменяются.
Б В Г Д Ж З К Л М Н
П Р С Т Ф Х Ц Ч Ш Щ

[Serge_Bliznykov]

в чём нужна помощь?
собственно шифрование:

function CryptByTable(s : string) : string;
const
    Alpha : string = 'БВГДЖЗКЛМН';
    CryptAlpha : string = 'ПРСТФХЦЧШЩ';
var i, k : integer;
begin
   Result := s;
   for i:=1 to Length(s) do begin
      k := Pos(s[i], Alpha);
      if k>0 then s[i] := CryptAlpha[k];
   end;
end;