Найти минимальное количество заливок, требуемых для стирания данной картинки

function OneColor(A : array [,] of Integer) : Boolean;
begin
  Result := False;
  for var Row := 0 to A.GetLength(0)-1 do
    for var Col := 0 to A.GetLength(1)-2 do
      if A[Row, Col] <> A[Row, Col+1] then
        Exit;
  for var Row := 0 to A.GetLength(0)-2 do
    for var Col := 0 to A.GetLength(1)-1 do
      if A[Row, Col] <> A[Row+1, Col] then
        Exit;
  Result := True;
end;
 
function FillCount(A : array [,] of Integer; R, C : Integer) : Integer;
  var U : array [,] of Integer;
 
  procedure Fill(Row, Col, fromColor, toColor : Integer);
  begin
    U[Row, Col] := toColor;
    
    if Row > 0 then
      if U[Row-1, Col] = fromColor then
        Fill(Row-1, Col, fromColor, toColor);
    
    if Row < U.GetLength(0)-1 then
      if U[Row+1, Col] = fromColor then
        Fill(Row+1, Col, fromColor, toColor);
 
    if Col > 0 then
      if U[Row, Col-1] = fromColor then
        Fill(Row, Col-1, fromColor, toColor);
    
    if Col < U.GetLength(1)-1 then
      if U[Row, Col+1] = fromColor then
        Fill(Row, Col+1, fromColor, toColor);
  end;
  
begin
  SetLength(U, A.GetLength(0), A.GetLength(1));
  for var Row := 0 to A.GetLength(0)-1 do
    for var Col := 0 to A.GetLength(1)-1 do
      U[Row, Col] := A[Row, Col];
  
  Result := 0;
  while Not OneColor(U) do
    begin
      Result += 1;
      Fill(R, C, U[R, C], (U[R, C] + 1) mod 2);
    end;
end;
 
begin
  var Rows := 3;
  var Cols := 5;
  var A : array [,] of Integer := ((1,0,1,0,1),(0,1,0,1,0),(1,0,1,0,1));
  
  var minFillCount := Rows * Cols;
  for var Row := 0 to Rows-1 do
    for var Col := 0 to Cols-1 do
      minFillCount := min(minFillCount, FillCount(A, Row, Col));
      
  WriteLn(minFillCount);
end.