Определить длину каждого слова строки, и если она четная, то вставить в середину слова "aa", иначе "а"

#include<iostream.h>
#include<stdlib.h>
#include<conio.h>
#include<string.h>
#include<stdio.h>
char a[80],b[81];
int k=0,l;
char *pa,*pb;
void vst (char *ps,int p,int i, int t)
{int j;
 for (j=i+t;j>p;j--)
 ps[j+1]=ps[j];
}
main ()
{
 clrscr();
 cout<<"vvedite stroku"<<endl;
 gets(a);
 pa=strtok (a," !?;:.,");
 while (pa!=NULL)
  {k=0;
   l=strlen(pa);
   pb=pa;
   cout<<l<<" ";
   int o=l/2;
   vst(pb,o,l,k);           //vizov
   pb[o]='a';
   k++;
   if (l%2==0)          //4etn
    {vst(pb,o,l,k);
     pb[o+1]='a';
    }
   puts(pb);
    pa=strtok (NULL," !?;:.,");
   }
getch();
return 0;
}

#include<iostream.h>
#include<string.h>
#include<stdio.h>
#include<conio.h>
#include<stdlib.h>
char a[100];
int k=0,t=0,i,j,l;
void vst (char sl[80], int p, int dl,int k1, int t1)
{   int x;
    for (x=dl+t1;x>p-(k1/2)-1;x--)
        sl[x+1]=sl[x];
}
main()
{
clrscr();
cout<<"„*** бва®Є*:"<<endl;
//strcpy(a,"Њ*¬* ¬л«* а*¬г, ®Є®«® ¬®©¤®¤ла*");
gets(a);
l=strlen(a);
for (i=0;i<=l+t;i++)
    if (a[i]!=' ' && a[i]!=',' && a[i]!='.'&& strlen(a)!=i )
        k++;
    else
    if (k!=0)
    {   cout<<"„«Ё** б«®ў* ";
        for (j=i-k;j<i;j++)
            cout<<a[j];
        cout<<" - "<<k<<endl;
        vst(a,i,l,k,t);
        a[i-(k/2)]='a';
        i++;
        t++;
        if (k%2==0) {vst(a,i,l,k,t);
                 a[i-(k/2)]='a';
                 i++;
                 t++;
                }
        k=0;
    }
puts(a);
getch();
}