pascal, строки. Как сделать, чтоб считались пробелы?

[AlexGur]

Всем, привет!

проблема такая:
программа считает слова, разделенные пробелами, но не не считает, если пробел стоит в начале строки или, если стоит два пробела подряд

Задание:
Дано натуральное число n и последовательность символов S1, …, Sn (строка). Группы символов, разделенные одним или несколькими про-белами, будем называть словами. Подсчитать количество слов в данной строке.

program stroki;
uses
Crt;
var
s:String;
n,i,c,gr:Integer;
begin
ClrScr;
Writeln('vvedite slova cherez probel..');
Readln(s);
n:= Length(s);
gr:=0;
c:=0;
for i:=1 to n do begin
if s[i] <> ' ' then begin
gr:=gr+1;
end
else begin
if gr>1 then c:=c+1;
gr:=0;
end;
end;
if gr>1 then c:=c+1;
Writeln('Kol-vo slov: ',c);

Readln;
end.



заранее, спасибо!

[SERG1980]

uses crt;
var s:string;
    i,slov:integer;
    schet:boolean;
BEGIN
 ClrScr;
 WriteLn('Vvedite stroky');
 ReadLn(s);
 slov:=0;
 schet:=true;
 for i:=1 to Length(s) do
  if s[i]=' ' then schet:=true
  else
  begin
   if schet then inc(slov);
   schet:=false;
  end;
  WriteLn('Kol-vo slov= ',slov);
  ReadLn;
END.