Задача на Список, Помогите пожалуйста Опции

[Bandit]

Задача состоит в чтении некоторого текста, выборе из него слов и подсчете частоты их появления, то есть, в составлении частотного словаря. Для чего нужно составить список слов, найденных в тексте. Каждое очередное слово, прочитанное в тексте, ищется в списке. Если слово найдено, то счетчик его частоты увеличивается, в противном случае слово добавляется к списку.Предполагается, что слова уже выделены из исследуемого текста
и находятся во входном файле.

Что -то я никак не могу сообразить. Помогите пожалуйста, если не трудно. Заранее, большое спасибо!!!!

Сообщение отредактировано: Bandit - 12.12.2007 20:30

[Bandit]

 Type
te=string;
pe=^el;
el=Record
   inf:te;
   next:pe
   end;
 Var sag,p,q,sag2:pe;
     n,i,j:integer;
procedure COPY (sag:pe; Var sag2:pe); //Копирование списка sag в список sag2
    begin
      if sag=nil then sag2:=nil
                 else begin
                      new (sag2);
                      sag2^.inf:=sag^.inf;
                      COPY (sag^.next, sag2^.next)
                      end;
      end;
procedure PRINT (sag:pe);// вывод на экран
    Var q:pe;
    begin
      q:=sag^.next;
      while q<>nil do
        begin write (q^.inf, ' ');
              q:=q^.next
              end;
     end;          
 {--------------------------------------------------------------------------------}



begin
New (sag);
sag^.next:=Nil;
p:=sag;
writeln ('Zadayte kol-vo elementov LOS');
readln (n);
For i:=1 to n do
    Begin
    New (q);
    Writeln ('Vvedite zna4 o4erednogo elementa:');
    readln (q^.inf);
    p^.next:=q; p:=q;
    end;
    q^.next:=Nil;//Ввод ЛОСа
    PRINT (sag);
    COPY (sag, sag2);
    PRINT (sag2);
    writeln;
    writeln ('Lx');
    PRINT (sag);
      readln;
      end. 

Написал вот как вводить Список и вывести его.
Мне для этой задачи как я понял нужно при вводе слова или символа его нужно искать в списке. Если его там нет, добавить к списку, а если есть повысить счётчик данного слова/символа.

Вот у меня вопрос: как реализовать счетчик у каждого символа, и что б к ним ещё можно было потом обратится для увеличения счётчика. Для этого, что нужно создать ещё один Список, или тут чем-то другим можно обойтись?

Сообщение отредактировано: Bandit - 12.12.2007 20:48