Программа "Кубики" "Ошибка: массив имеет другое количество размерностей"

                                           const
    MaxN  =  100;
    MaxV  =  MaxN+26+1;         {Макс. к-во вершин}
    MaxC  =  MaxV div 20;           {Макс к-во дуг из вершин}
var
    N   :  3..MaxN;         {Количество кубиков}
    a   : array [0..MaxV, 1..MaxN] of byte; {Граф исток-кубики-буквы-сток}
    Ka  : array [0..MaxV] of integer;       {Количество ребер из вершины}
    c,f,cf  : array [0..MaxV, 0..MaxV] of byte; {Веса вершин в графе А}
    i,j,Finish  : integer;
    ia  : array [0..MaxV, 1..MaxC] of shortint; {Список входящих вершин}
    Kia : array [0..MaxV] of integer;       {Количество входящих ребер}
    Max : longint;              {Макс. поток}
    Name    : string[100];
    Qubics  : array [1..100] of string [6];
    Lim : array [1..26] of integer;     {Количество букв в имени}
    NomKub  : array [1..26] of integer;     {Номер кубика с такой буквой}
  NomLet  : byte;
  s,k   : byte;
 
      Var input:text;
 
          Begin
 InputData:
           begin
    assign(input, 'C:\input.txt'); reset(input);
    readln (N);             {Количество кубиков}
    readln (Name);              {Имя матери}
    for i:=1 to N do readln(Qubics[i]);     {Надписи на кубика}
 
 
    Finish := N+26+1;               {Кубики + алфавит + сток}
 
 
    for i:=0 to Finish do               {Инициализируем пустой граф}
      begin                 {исток-кубики-буквы-сток}
       for j:=0 to Finish do a[i,j]:=0;
       ka[i]:=0;
    end;
 
                        {Добавляем вершину-исток}
    ka[0]:=N;                   {Из исток - N дуг - к каждому кубику}
    for i:=1 to N do
      begin
       a[0,i]:=i;                   {Номер вершины, соединенной с истоком}
       c[0,i]:=1;               {вес соответствующей дуги}
    end ;
 
                        {Добавляем вершину-сток}
    for i:=1 to Length(Name)  do
      begin
          NomLet:= Ord(Name[i]) -  Ord('A')  + 1;
          ka[N+NomLet]:=1;
          a[N+NomLet,1]:=Finish;            {Одна дуга на каждую букву из имени}
          Inc(c[N+NomLet,Finish])           {ее вес - количество таких букв в имени}
       end;
 
                        {Добавляем дуги от кубиков к буквам}
    for i:=1 to N do                {Для каждого кубика}
      begin
        for j:=1 to 6 do                {Для каждой буквы на кубике}
             begin
          NomLet:=Ord(Qubics[i,j])-Ord('A')+1.  {Вычисляем номер буквы}
          a[i.j]:=N+NomLet;         {Добавляем дугу от кубика к букве}
          c[i.a[i.j]]:=1;               {Вес такой дуги - 1}
          NomKub[NomLet]=1;
          inc(ka[i])
       end;
    end;
             close(input);
          end;
 
 
Procedure OutputData;
    begin
     assign(output.'output.txt'); rewrite(output);
    Max:=0;
    for i:=N+1 to N+26 do Max:=Max+f[i,Finish];
    If Max<>Length(Name)
      then writeln('NO')
      else
       begin
       writeln('YES');
       for i:=1 to Length(Name) do
        begin
        NomLet:=Ord(Name[i])-Ord('A')+1.        {Вычисляем номер буквы}
        for k:=1 to n do
        if f[k,N+NomLet]=1
         then
         begin write(k,' ');
         f[k, N+NomLet]:=0;
         break;
         end;
    end;
         end;
    close(output);
     end;

Qubics  : array [1..100] of string [6];//одномерный масив

 NomLet:=Ord(Qubics[i,j])-Ord('A')+1.  {Вычисляем номер буквы}// к двумерному

 for j:=1 to 6 do                {Для каждой буквы на кубике}
             begin
          NomLet:=Ord(Qubics[i][j])-Ord('A')+1;  {Вычисляем номер буквы}
          a[i,j]:=N+NomLet;         {Добавляем дугу от кубика к букве}
          c[i,a[i,j]]:=1;               {Вес такой дуги - 1}
          NomKub[NomLet]:=1;
          inc(ka[i])
       end;