Число перемен знака в массиве. Количество слов в тексте. Pascal.

[Cartman18]

1) С использованием функции определить:
Число перемен знака в массиве X1, X2, ..., Xn.
2) Составить программу для обработки текстовой информации по поставленному условию : В заданном тексте вычислить количество слов в тексте и распечатать их по одному в строке.
Не могу ( решить... скоро зачотная неделя. Плс хелп)

//Правила форума. Правила раздела. Темы созданные не по правилам будут удаляться. За игнорирование правил - штраф. Модератор.

[Kostia]

2)

program st;
var
  s,s1: string;
  i,k: integer;
  kol: integer;
begin
  cls;
  readln(s);
  s:=s+' ';
  repeat
    if pos('  ',s)>0 then
      delete(s,pos('  ',s),1);
  until pos('  ',s)=0;
  k:=0; kol:=0;
  for i:=1 to length(s) do
    if s[i]=' ' then
    begin
      s1:=copy(s,k+1,i-k);
      writeln(s1);
      kol:=kol+1;
      k:=i;
    end;
  writeln(kol,' Слов');
end.

Код вставляем в тег [CОDE][/СОDЕ] или пользуемся кнопкой # (расширенный режим). Модератор.