дано предложение. в нем слова разделены одним или несколькими пробелами. определить количество слов в предложении. рассмотрев два случая: 1) начальные и конечные пробелы в предложении отсутствуют, 2)начальные и конечные пробелы в предложении имеются — Pascal(Паскаль)

var s:string;
i,k:integer;
begin
readln(S);
k:=1;
for i:=1 to length(s) do
if s[i]=' ' then k:=k+1;
write(k);
end.

uses crt;
var number : integer;
    i : integer;
    s : string;
    flag : boolean;
    let : char;
begin
 clrscr;
 write('s: ');
 readln(s);
 number := 0;
 flag := true;
 for i := 1 to length(s) do
  begin
  let := s[i];
   if (let <> ' ') and (flag) then
    inc(number);
   flag := (let = ' ');
  end;
 writeln('Count = ', number);
 readln;
end.