Блок-Схема. Вывести список и число слов, длинна которых меньше 5 символов

#include "stdafx.h"
#include <stdio.h>
#include <conio.h>
#include <string.h>
#include <locale.h>
 
typedef struct zap {char slv[10]; zap *p;};
 
int _tmain(int argc, _TCHAR* argv[])
{zap a,*r,*q,*f,*c,*b,*w;
char st[80], str[]=" ", *ptr;
int k=0;
setlocale(0,"russian");
f=new zap;
f->p=NULL;
b=f;
w=b;
puts("Введите строку");
gets(st);
ptr=strtok(st," ");
strcpy(f->slv,ptr);
r=f;
while (ptr!=NULL)
{   
    ptr=strtok(NULL," ");
    if (ptr!=NULL)
    {
    q=r;
    r=new zap;
    strcpy(r->slv,ptr);
    r->p=q;
    }
}
q=r;
f=r;
puts("\n\nСписок:\n");
    if(r==NULL) puts("Нет информации");
    else do { printf("%s \n",r->slv);
              r=r->p; }
         while (r!=NULL);
r=q;
 
    if(r==NULL) puts("Нет информации");
    else do { if (strlen(r->slv)<5) k++;
              r=r->p; }
        while (r!=NULL);
printf("\n\nКоличество слов,длина которых меньше 5 символов =   %d",k);
while(b){
    w=b;
    b=b->p;
    delete w;}
getch();
    return 0;
}