Giúp đỡ giải thích code bài toán dãy ABC

giải thich giúp mình đoạn code

Dãy ABC:
Cho trước một số nguyên dương N ( N<= 100), hãy tìm một xâu chỉ gồm các ký tự A,B,C thỏa mãn các điều kiện sau:
*Có độ dài N
*Hai đoạn con bất kỳ liền nhau đều khác nhau. ( Đoạn con là 1 dãy các ký tự liên tiếp của xâu).
*Có ít ký tự C nhất.

CODE:

const
      InputFile = 'data1.inp';
      OutputFile = 'data1.out';
      max = 100;
var
      N,MinC : Integer;
      X,Best : array[1..max] of 'A'..'C';
      T      : array[0..max] of Integer;
      f      : Text;
function Same(i,l : Integer) : Boolean;
var
      j,k : Integer;
      begin
             j:= i - l; 
             for k:= 0 to l-1 do
                 if X[i-k] <> X[j-k] then
                    begin
                           Same := False; Exit;
                    end;
                  Same := True;
      end;
function Check( i: Integer) :boolean;
var
       l:Integer;
    begin
       for l:= 1 to i div 2 do 
           if Same (i,l) then
    begin
       Check := False; Exit;
    end;
       Check := True;
    end;    
procedure KeepResult;
begin
     MinC := T[N];
     Best := X;
end;
procedure Attempt( i: Integer); 
var
      j: 'A'..'C';
begin
      for j:= 'A' to 'C' do
      begin
      X[i] := j;
      if Check(i) then 
      begin
            if j = 'C' then T[i] := T[i-1] +1     
            else T[i] := T[i-1];
            if T[i] + (N-i) div 4 < MinC then 
                if i = N then KeepResult
                else Attempt(i+1);
      end;
      end;
end;
procedure PrintResult;
var
      i: Integer;
begin
      for i:= 1 to N do Write ( f,Best[i]);
      WriteLn(f);
      WriteLn(f,' " C " - Letter Count: ',MinC);
end;
begin
      Assign (f,InputFile);Reset(f);
      ReadLn (f,N);
      Close(f);
      Assign(f,OutputFile); Rewrite(f);
      T[0] := 0;
      MinC := N;
      Attempt (1);
      PrintResult;
      Close(f);
end.