Напишите программу, определяющую количество слов в любом предложении, введенном с клавиатуры.(Паскаль.)

var a:string;i,k:integer;beginreadln(a);For i:=1 to length(a) doIf copy(a,i,1)=' ' then k:=k+1;writeln(k+1);end.