Динамические структуры данных

[Yashanov]

Дана такая задача:
Дана непустая последовательность слов, максимальная длина слов заранее не известна.; между словами - пробел, за последним словом - точка. Напечатать эти слова по алфавиту, указав для каждого из них число его вхождений в эту последовательность.
Есть вот такой код программы, только данныя программка выводит слова по алфовиту записаные в файле в столбец. Помогите преобразочать код под условия задачи, тоесть преобразование последовательность слов из строки...

program sortnames;
type
  ptrNameList = ^nameList;
  nameList = record
    name:String;
    next:ptrNameList;
    end;
var firstElement,element,lastElement:ptrNameList;
    f:text;
    nameString:String;

function firstElementGreaterThanSecond(element1,element2:ptrNameList):boolean;
  begin
  firstElementGreaterThanSecond := (element1^.name > element2^.name);
  end;

procedure switchElementsContent(element1,element2:ptrNameList);
var temp:String;
  begin
  temp := element1^.name;
  element1^.name := element2^.name;
  element2^.name := temp;
  end;

procedure printList;
var element:ptrNameList;
  begin
  element := firstElement;
  while (element<>nil) do
    begin
    writeln(element^.name);
    element := element^.next;
    end;
  writeln('konec spiska');
  end;


begin;

{ Chtenie spiska }

firstElement := nil;
assign(f,'list.txt');
reset(f);
while not eof(f) do
  begin
  readln(f,nameString);
  if (firstElement = nil) then
    begin
    new(element);
    firstElement := element;
    end
  else
    begin
    new(element^.next);
    element := element^.next;
    end; { end if }
  element^.name := nameString;
  element^.next := nil;
  end; { end while }
close(f);

{ Pechat ishodnogo diska }

writeln('Ishodnii spisok');
printList;

{ Sortirovka }

element := firstElement;

{ Naidem posledniy Element }

while (element<>nil) do
  element := element^.next;
lastElement := element;

while (firstElement<>lastElement) do
  begin
  element := firstElement;
  while (element^.next<>lastElement) do
    begin
    if firstElementGreaterThanSecond(element,element^.next) then
      switchElementsContent(element,element^.next);
    element := element^.next;
    end;
  lastElement := element;
  end;

{ Pechat rezyltata }

writeln('Otsortirovannii spisok');
printList;
end.

[Stilet]

Ну если навскидку то :

{ Chtenie spiska }
var s,k:string;i:integer;
...
firstElement := nil;nameString:='';
s:='Я знаю что вы делали прошлым летом: План планировали.';
 i:=0; while (i<=length(s)) do begin
  begin
 if s[i]<>' ' then nameString:=nameString+s[i]
  else begin
   inc(i); 
if (firstElement = nil) then
    begin
    new(element);
    firstElement := element;
    end
  else
    begin
    new(element^.next);
    element := element^.next;
    end; { end if }
  element^.name := nameString;
  element^.next := nil;
  nameString:='';
  end;
  inc(i);
 end;
   { end while }
close(f);

Смысл ясен?