задача "файлы" помогите решить, задали задачку уже 8 часов голову ломаю(((( Опции

[Vigame]

вот задача

Дан текстовый файл. Считая, что количество букв в одном слове не превосходит 20, определить, сколько в файле имеется слов, состоящих из одного, двух, трех и т.д. символов. Результат вывести в другой текстовый файл.

помогите пожалуйста нечего не получается смог смастерить программу для подсчета слов в фаиле и больше нечего паскаль идет всего неделю и нужно срочно сдать задачу

Заранее спасибо

[Vigame]

в общем от что у меня получилась но дальше не могу уже 8 часов мучаюсь

Код

Uses crt;
  var
        MyFile: Text;
        i,n: integer;
        s: String;
        x,y,yItog: integer;
  begin
         clrscr;
         x:=0;
         y:=0;
         Assign(MyFile,'Text1.txt');
         ReSet(MyFile);
   while not EOF(myFile) do begin
         ReadLn(MyFile,s);
         n:= Length(s);
         for i:=1 to n do begin
         if s[i]=' ' then x:=x+1;
   end;
         y:=x+1;
         x:=0;
         yItog:=yItog+y;
   end;
         Close(MyFile);
         Assign(MyFile,'Text2.txt');
         ReWrite(MyFile);
         Write(MyFile,yItog);
         Close(MyFile);
         end.