Вывести на экран все возможные слова состоящие из К букв

const b:array[0..3] of char =('ы','ш','ч','о');
var i,k:integer;
    s,sn:string;
function sl(str:string):string;
var i,dx:integer;
begin
 dx:=1;
 i:=length(str);
 while dx=1 do 
  begin
   if str[i]=b[3]
    then str[i]:=b[0]
    else begin
          if str[i]=b[2] then str[i]:=b[3];
          if str[i]=b[1] then str[i]:=b[2];
          if str[i]=b[0] then str[i]:=b[1];
          dx:=0
         end;
    dec(i)     
  end;
 sl:=str 
end;
begin
 write('k = ');readln(k);
 s:='';sn:='';
 for i:=1 to k do begin s:=s+b[0];sn:=sn+b[3] end;
 write(s,' ');
 while s<>sn do
  begin 
   s:=sl(s);
   write(s,' ');
  end;
end.

  j:=1;
  while s[i]<>s[j] do Inc(j);
  s[i]:=b[j+1];

const
  b: array [0..3] of Char = 'ышчо';
 
procedure sl(var s: String): String;
var i, j: Integer;
begin
  for i:=Length(s) downto 1 do
    if s[i]=b[High(b)] then s[i]:=b[0]
    else begin
      j:=1; while s[i]<>b[j] do Inc(j);
      s[i]:=b[j+1];
      Break;
    end;
end;

const
  b: String[4] = 'ышчо';
 
procedure sl(var s: String): String;
var i: Integer;
begin
  for i:=Length(s) downto 1 do
    if s[i]=b[Lenght(b)] then s[i]:=b[1]
    else begin
      s[i]:=b[Pos(s[i],b)+1];
      Break;
    end;
end;