Нужно расшифровать сообщение, используя частотный анализ

const
  t = 'ыяуфр зхьятхы юрзрь тлбрйщтргм ёьхс щ дсщбргм дбячръ, слья ягэхзхюя, згя тбхэп аявхтр хчхуяфюя абщёяфщья т яфюя щ гя чх тбхэп. ьофщ юрзрьщ взщгргм, выяьмыя тбхэхющ абяёяфщг эхчфд аявхтрэщ. нгя сльр ахбтрп аяалгыр зхьятхыр яабхфхьщгм зщвья фюхъ т уяфд!';
  r = ['ё', 'а'..'я'];
var
  d, f, s: string;
  ff: array[1..33] of integer;
  i, j, k, p, q: integer;
  c: char;
begin
  d := 'оеаинтсрвлкмдпуяыьгзбчйхжшюцщэфъё';
  f := d;
  for i := 1 to length(t) do
    if t[i] in r then inc(ff[pos(t[i], f)]);
  for i := 1 to 32 do
    begin
      k := i;
      for j := i + 1 to 33 do
        if ff[j] > ff[k] then k := j;
      if k > i then
        begin
          c := f[k];
          f[k] := f[i];
          f[i] := c;
          q := ff[k];
          ff[k] := ff[i];
          ff[i] := q
        end
    end;
  repeat
    for i := 1 to length(t) do
      begin
        if t[i] in r then write(d[pos(t[i], f)])
        else write(t[i])
      end;
    writeln;
    write('>> ');
    readln(s);
    if length(s) = 2 then
      begin
        p := pos(s[1], d);
        q := pos(s[2], d);
        c := d[p];
        d[p] := d[q];
        d[q] := c
      end
  until s = ' ';
  writeln(f);
  writeln(d)
end.