Turbo Basic - punteros

hola,
tengo que leer dos cadenas y unirlas en otra cadena esto es lo que llevo pero lo unico que me imprime es la primera letra de la segunda frase. ayuda.....
#include<conio.h>
#include<iostream.h>
#include<stdio.h>

void main()
{
char fra[20], nombre[20],cadena[50];
char *fr,*nom,i;
clrscr();
cout<<"digite la frase: ";
gets(fra);
cout<<"digite la frase: ";
gets(nombre);
nom=nombre;
fr=fra;
while(*fr==''&&*nom!='')
{
cadena[50]=fra[20]+nombre[20];
}
cout<<"la nueva cadena es: "<<cadena[50];
getch();

}