Строки в паскале

[Nil09511]

Помогите доделать программу. Т.е. чтобы один или несколько пробелов не считались за слова.
Суть программы: Дана строка. Для каждого из слов указать, сколько раз оно встречается в тексте.

var 
   s, w : string;
   m, n : byte;
   wc : integer;
begin
   readln(s);
   s := s + ' ';
   n := Pos(' ', s);
   while (n > 0) do
   begin
      w := copy(s, 1, n - 1);
      s := copy(s, n + 1, 255);
      m := Pos(' ' + w + ' ', ' ' + s);
      wc := 1;
      while (m > 0) do
      begin
         wc := wc + 1;
         s := copy(s, 1, m - 1) + copy(s, m + length(w) + 1, 255);
         m := Pos(' ' + w + ' ', ' ' + s);
      end;
   writeln('Слово ', w , ' встречено ', wc, ' раз(а)');
   n := Pos(' ', s);
   end;
   readln;
end.

[Serge_Bliznykov]

если задаться целью внести МИНИМАЛЬНЫЕ поправки (т.е. не менять алгоритм обработки, это это можно сделать так:
замените строчку

s := copy(s, n + 1, 255);

на строчку:

      s := Trim(copy(s, n + 1, 255))+' ';

либо, можно исключить пробелы из проверки.
так (привожу только основную часть программы):

.....
  n := Pos(' ', s);
  while (n > 0) do
  begin
    w := copy(s, 1, n - 1);
    s := copy(s, n + 1, 255);
    if length(w) > 0 then begin
      m := Pos(' ' + w + ' ', ' ' + s);
      wc := 1;
      while (m > 0) do
      begin
        wc := wc + 1;
        s := copy(s, 1, m - 1) + copy(s, m + length(w) + 1, 255);
        m := Pos(' ' + w + ' ', ' ' + s);
      end;
      writeln('Слово ', w, ' встречено ', wc, ' раз(а)');
    end;
    n := Pos(' ', s);
  end;