program KOLICHESTVO_SLOV_V_FAILE;

var
CountSlov:integer;
f:text;
strA:string;

begin
Assign(f,'D:\pr1.txt');
reset(f);
read(f,strA);
close(f);
countslov:=0;
while pos(' ',strA) <> 0 do begin
if copy(strA,1,pos(' ',strA)) <> ' ' then begin
CountSlov:=CountSlov+1;
end;
delete(stra,1,pos(' ',strA));
end;
if strA<> '' then  CountSlov:=CountSlov+1;

writeln('Kolichestvo slov v faile = ',CountSlov);
readln;
end.

Hello world hellow world 1 2 3 hello

Kolichestvo slov v faile = 8

Kolichestvo slov v faile = 0

root @       local host

Kolichestvo slov v faile = 4