谁能帮我看看这个程序有什么问题啊

Question

这个程序的作用是将数据库中相同的项的数量统计出来，将其寸在另一个数据库中！！！！！
while adotable1.RecordCount>=1 do  //统计数量
     begin
    adotable1.First ;
    zhi1:=adotable1.fieldbyname('zhi').AsString ;
    zhi1:=trim(zhi1);
     adotable1.delete;
     i:=1;
       ADOTable1.Next;
     while not ADOTable1.Eof do
       begin
           name:=adotable1.fieldbyname('zhi').AsString;
           name:=trim(name);
           if comparestr(name,zhi1)=0 then
             begin
              adotable1.Delete;
              i:=i+1;
              adotable1.Next;
             end;
           if comparestr(name,zhi1)<>0 then
             begin
             ADOTable1.Next;
             end;
       end;
         adoTable2.TableName:='yltj';
         adotable2.active:=true;
          with adotable2 do
              begin
                  insert;
                  fieldbyname('zhi').AsString:=zhi1;
                  FieldByName('num').AsInteger:=i;
                  post;
              end;
    end;

Answer 1

你想要实现什么功能，思维有些不清楚；算法设计可能有些问题；