Массив типа String. Вывести все возможные варианты

program Project28;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils,
  Unit1 in 'Unit1.pas';
 
 var s,new:string[255];
      b,a:mas_work;
      mas,n,j,i:integer;
 
 
procedure input_file_line_work(var b: mas_work; var n: integer);
var
  i: integer;
  varrible_file: text;
begin
  n:=3;
  assign(varrible_file,
    'work.txt');
  reset(varrible_file);
  readln(varrible_file, n);
  for i := 1 to n do
    readln(varrible_file, b[i]);
  close(varrible_file);
end;
 
Procedure Show_a(var b: mas_work; n: integer);
var
  i: integer;
begin
  writeln;
  writeln('=====');
  writeln('DeBug');
  writeln('=====');
  writeln('====================================');
  writeln('Просмотр массива:');
  begin
  for i := 1 to n do
    Writeln(b[i], ' '); { вывод на экран }
  end;
  writeln;
  writeln('====================================');
  writeln;
  writeln;
end;
Procedure Show_b(var b: mas_work; n: integer);
var
  i: integer;
  out:text;
begin
  for i := 1 to n do
    Writeln(b[i], ' '); { вывод на экран }
end;
 
procedure razb(i, j: integer);   {i- рассматриваемый элемент}
var l,k,max: integer;  {j- количество блоков в разбиении}
    v:string;
      out:text;
begin
  if i > n then Show_b(b, n) {Если рассматриваемый элемент больше, чем общее число элементов в множестве, то разбиение сформировано, выводим его}
    else
    begin
      for l := 1 to j do   {Просматриваем все блоки}
      begin
        v:=b[l]; b[l]:=b[i]; b[i]:=v; {обмен a[i],a[l]}
        if l=j then   begin writeln; Writeln('DAY ', j);
        razb(i+1, j+1)
        end
        else
        razb(i+1, j);
      end;
    end;
end;
 
begin
  try
  input_file_line_work(b,n);
  Show_a(b,n);
  razb(1,1);
  readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.