Подскажите в чем ошибка,пожалуйста

const
  magic: array [1..3, 1..3] of byte =
  ((1, 2, 4),
  (2, 8, 16),
  (4, 16, 32));
 
var
  n, i, j, k, l, code: longint;
  can: array [1..3, 1..3] of boolean;
  total: array [0..1, 1..3, 0..63] of extended;
  answer: extended;
 
procedure readdata;
var
  s: string;
  i, j: byte;
begin
  readln(n);
  fillchar(can, sizeof(can), false);
  for i := 1 to 3 do
  begin
    readln(s);
    for j := 1 to 3 do
      if upcase(s[j]) = 'Y' then
      begin
        can[i, j] := true;
        can[i, j] := true
      end
  end
end;
 
procedure findcode;
var
  i, j: byte;
begin
  {переводим диаграмму смежности в число}
  code := 0;
  for i := 1 to 3 do
    for j := i to 3 do
      if can[i, j] then
        code := code + magic[i, j]
end;
 
begin
  readdata;
  findcode;
  
  fillchar(total, sizeof(total), 0);
  {количество полосок длины 1}
  
  for i := 1 to 3 do
    total[1, i, 0] := 1;
    
  for i := 2 to n do
    for j := 0 to 63 do
      for k := 1 to 3 do
      {cчитаем полоски длины i,
      c диаграммой смежности j
      и оканчивающиеся цветом k}
      begin
        total[i mod 2, k, j] := 0;
        for l := 1 to 3 do
          {цикл по конечному цвету
          полосок длины i - 1}
          if magic[k, l] and j <> 0 then
          {цвета l и k могут соседствовать
          согласно диаграмме смежности j}
          begin
            total[i mod 2, k, j] :=
            total[i mod 2, k, j] +
                        total[1 - i mod 2, l, j];
            total[i mod 2, k, j] :=
            total[i mod 2, k, j] +
                        total[1 - i mod 2, l, j - magic[k, l]]
          end
      end;
  answer := 0;
  {суммируем количество полосок с диаграммой
  смежности code и различными окончаниями}
  for i := 1 to 3 do
    answer := answer + total[n mod 2, i, code];
  writeln(answer:0:0)
end.