How about copying all of a type in one go:
while (Block[i])
{
while (isalpha(Block[i]))
{
Token[j][k] = Block [i];
k++;
i++;
Token[j][k] = '\0'; // be sure to 'end the string'
Type[j] = 1;
}
This will copy the entire word up to the first non-alpha character and leave you set at the following character.
A slightly cleaner option:
while (Block[i])
{
if (isalpha(Block[i]))
{
k = 0;
while (isalpha(Block[i]))
{
Token[j][k++] = Block [i++];
}
Token[j][k] = '\0'; // be sure to 'end the string'
Type[j] = 1;
}