Прошу прокоментировать..

program z8;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const
  types: array [0..3] of string = ('AA','AB','BB','BA');
 
var
  n, k, i, loco, kol: integer;
  str: string;
  num: array [0..3] of integer;
  answers: array of string;
 
function getType(str: string): integer;
var i: integer;
begin
  for i:=0 to 3 do
    if str=types[i] then
    begin
      getType:=i;
      break;
    end;
end;
 
procedure addAnswer(str: string);
var
  temp: string;
begin
  kol:=kol+1;
  setLength(answers,kol);
  temp:=str;
  delete(temp,1,2);
  answers[kol-1]:=temp;
end;
 
procedure find(l, v: integer);
begin
  if l>k+1 then exit;
  if (l=k+1)and(v=loco) then addAnswer(str);
  str:=str+types[v];
  num[v]:=num[v]-1;
  case v of
    0,3:begin
          if num[0]>0 then find(l+1,0);
          if num[1]>0 then find(l+1,1);
        end;
    1,2:begin
          if num[2]>0 then find(l+1,2);
          if num[3]>0 then find(l+1,3);
        end;
  end;
  delete(str,length(str)-1,2);
  num[v]:=num[v]+1;
end;
 
begin
  {$R+}
  {$B-}
  write('n = ');
  readln(n);
  write('k = ');
  readln(k);
  readln(str);
  loco:=getType(str);
  for i:=0 to 3 do num[i]:=0;
  for i:=1 to n do
  begin
    write(i,': ');
    readln(str);
    num[getType(str)]:=num[getType(str)]+1;
  end;
  num[loco]:=num[loco]+2;
  kol:=0;
  str:='';
  find(0,loco);
  writeln(kol);
  for i:=0 to kol-1 do
    writeln(answers[i]);
  readln;
end.