Текстовые файлы

[Алина Нестерова]

Народ помогите плс кому не сложно, сама не особо понимаю

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

Программу оформить с помощью меню, включающего:
создание файла;
дополнение файла;
обработку;
печать файла;
выход.

[ZX Spectrum-128]

const

   limits = [#0..#32,'.',',',':',';','!','?','"'];
type

   TWords = array[1..40] of string;

var
   S: string;
   words : TWords;
   F:text;
   Kol,i, m:integer;
   K1,k2,k3,k4,k5:integer;

function GetWords(s : string; var w : TWords) : byte;
var
   i,back,n : byte;
begin
   i := 1;
   n := 0;
   while(i<=length(s)) do begin
      while(i<=length(s)) and (s[i] in limits) do
       inc(i);
      if i<=length(s) then begin
         back := i;
         while(i<=length(s)) and not(s[i] in limits) do
          inc(i);
         inc(n);
         w[n] := copy(s, back, i-back);
      end;
   end;

   GetWords := n;
end;

Begin
// обработка файла
   Assign(f,'data.txt');
   Reset(f);
   K1:=0; K2:=0; k3:=0; k4:=0; k5:=0;
   While not eof(f) do
      Begin
         Readln(f,s);
         Kol:=GetWords(s,words);
         For i:=1 to kol do
            Begin
                M:=length(words[i]);
                Case m of 
                  1: k1:=k1+1;
                  2: k2:=k2+1;
                  3: k3:=k3+1;
                  4: k4:=k4+1;
                  5: k5:=k5+1;
                End;
             End;
         End;
      Close(f);
...
End.