самое короткое и самое длинное слово

[Evelin_18]

В заданном предложении найдите самое короткое и самое длинное слова и укажите позиции, с которых они начинаются.
Нужно написать через массив.

[Helloween]

Без учета, что слов может быть несколько.

#include "stdio.h"
#include "string.h"
int main()
{
  char str[1000] = {0,};
  gets(str);
  char arr[256][256] = {0,};
  int i = 0;
  int maxleni = 0, maxlen = 0;
  int minleni = 0, minlen = 0;
  char* p = strtok(str," ,.");
  minlen = strlen(p);
  while(p)
  {
	if(strlen(p) > maxlen)
	{
      maxlen = strlen(p);
	  maxleni = i;
	}
	if(strlen(p) < minlen)
	{
      minlen = strlen(p);
	  minleni = i;
	}
	strcpy(arr[i++],p);
	p = strtok(NULL," ,.");
  }
  printf("Min len word:%s\n",arr[minleni]);
  printf("Max len word:%s\n",arr[maxleni]);
  return 0;
}

[Evelin_18]

а можно на Pascal написать..