Из Trie дерева удалить все слова четной длины

Uses CRT;
Type pnode = ^node;
     node = record
          el : array['A'..'я'] of pnode;
          leaf :boolean;
          end;
          
var tree : pnode;
    s : string;
    n,i:integer;
 
function NewNode:PNode;
var
Node:PNode;
i:char;
begin
    New(Node);
    Node^.leaf:=false;
    for i:='A' to 'я' do Node^.el[i]:=nil;
    NewNode:=Node;
end;    
    
procedure AddWord(var Tree:PNode;s:string);
begin
    if Tree = nil then Tree := NewNode;
    if s='' then Tree^.leaf:=true
    else AddWord(Tree^.el[s[1]],copy(s,2,length(s)-1));
end;
 
procedure Print(Tree:PNode;s:string);
var
i:char;
begin
    if Tree=nil then exit;
    if Tree^.leaf then writeln(s);
    for i:='A' to 'я' do
        if Tree^.el[i]<>nil then Print(Tree^.el[i],s+i);
end;
 
procedure Free(var Tree:PNode);
var
i:char;
begin
    if Tree=nil then exit;
    for i:='A' to 'я' do
        if Tree^.el[i]<>nil then Free(Tree^.el[i]);
  dispose(Tree);
end;
 
procedure DeleteOdd(var Tree:PNode;s:string);
var
i:char;
flag:boolean;
begin
    if Tree=nil then exit;
  flag:=false;
  if (Tree^.leaf) and (length(s) mod 2 =0) then
        begin
            Tree^.leaf:=false;
            flag:=true;
        end;
    for i:='A' to 'я' do
        if Tree^.el[i]<>nil then
       begin
            DeleteOdd(Tree^.el[i],s+i);
            flag:=false;
       end;
    if flag then
        begin
            dispose(Tree);
            Tree:=nil;
        end
end;
 
begin
    write('Введите количество вводимых слов - ');
    readln(n);
    for i:=1 to n do
        begin
      write('Введите ',i,' слово - ');
            readln(s);
            AddWord(Tree,s);
        end;
    writeln;
    writeln('Содержимое Trie-дерева - ');
    Print(tree,'');
    writeln;
    DeleteOdd(Tree,'');
    writeln('Содержимое Trie-дерева после удаления слов с чётной длиной - ');
    Print(tree,'');
    Free(tree);
end.