Встречено else, а ожидался оператор

PROCEDURE Print_tree(var Tr: tree; var sum: integer);
Var i,j: integer;
alreadyin: array[1..6] of string;
k: array[1..6] of integer;
 
Begin
    for j:=1 to 6 do alreadyin[j]:= '';
    for j:=1 to 6 do k[j]:= 1;
 
    If Tr <> nil then
    Begin
        Print_tree(Tr^.Right,sum); // рекурсивный вывод правой ветки
 
        for i := 1 to Tr^.amt do
            begin
                sum:= sum - 1; // чтобы после последнего слова поставить точку
                if sum <> 0 then
                    begin
                    //Write(Tr^.elem,',') // вывод самого элемента
                        for j:=1 to 6 do
                            begin
                                if (Tr^.elem) = alreadyin[j] then k[j]:= j+1; //break;
                                else if alreadyin[j] = '' then alreadyin[j]:= (Tr^.elem)
                            end;
                    end;
 
                else Write(Tr^.elem,'.') // нужное кол-во раз
            end;
        Print_tree(Tr^.Left,sum); /// левой ветки
        dispose(Tr) // удаление вершины для очистки памяти !(важно)!
    End;
 
End;

procedure Print_tree(var Tr: tree; var sum: integer);
Var
  i,j: integer;
  alreadyin: array[1..6] of string;
  k: array[1..6] of integer;
 
Begin
  for j:= 1 to 6 do
    alreadyin[j]:= '';
  for j:= 1 to 6 do
    k[j]:= 1;
 
    If Tr <> nil then
      Begin
        Print_tree(Tr^.Right,sum); // рекурсивный вывод правой ветки
        for i := 1 to Tr^.amt do
          begin
            sum:= sum - 1; // чтобы после последнего слова поставить точку
              if sum <> 0 then
                begin
                //Write(Tr^.elem,',') // вывод самого элемента
                  for j:=1 to 6 do
                    begin
                      if (Tr^.elem) = alreadyin[j] then
                         begin
                           k[j]:= j+1;
                           //break;
                         end
                       else
                         if alreadyin[j] = '' then
                             alreadyin[j]:= (Tr^.elem);
                     end;
                  end
                else
                  Write(Tr^.elem,'.'); // нужное кол-во раз
          end;
        Print_tree(Tr^.Left,sum); /// левой ветки
        dispose(Tr); // удаление вершины для очистки памяти !(важно)!
      End;
 
End;