for i:=1 to j do
     case s[i] of
      'й','ь','ъ': ss:=ss+'x';
      'а','е','ё','и','о','у','ы','э',
      'ю','я','a','e','i','o','u','y' : ss:=ss+'y';
      'б','в','г','д','ж','з','к','л',
      'м','н','п','р','с','т','ф','х',
      'ц','ч','ш','щ','b','c','d','f',
      'g','j','k','l','m','n','p','q',
      'r','s','t','v','w','x','z' : ss:=ss+'z';
      else ss:=ss+s[i]; 
    end;