Листинг программы

program z32;

{ Определить кол-во слов в строке. Слова

  отделяются одним или несколькими пробелами }

uses crt;

var i,l,k,j:longint;a:string;

 begin

  clrscr;textcolor(11);

   write('введите текст: ');readln(a);l:=length(a);

   for i:=1 to l do

    if (a[i]=' ')and(a[i+1]=' ')

      then inc(j)

      else a[i-j]:=a[i];l:=l-j;

    if a[1]=' 'then begin delete(a,1,1);l:=l-1; end;

    if a[l]<>' ' then begin inc(l);a[l]:=' '; end;

   for i:=1 to l do if a[i]=' 'then inc(k);

    write(' кол-во слов: ',k);

  readln;

 end.