переделать программу из С++ в Pascal

[Evelin_18]

помогите пожалуйста переделать программу из С++ в Pascal

 #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;
 }

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.