Есть кусочек, что дописать не знаю...

[Галенька]

в общем суть задачи:
Даны натуральное число n, символы S1,...Sn. Подсчитать наибольшее количество идущих подряд пробелов.

у меня есть программка, которая считает наибольшее количество пробелов.
но вот в чем беда.. я не знаю как и что дописать, чтобы она по услвию решалась.
это не строки! просто символьный тип

вот программа:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var s:char; f,m:integer;
begin
writeln ('Write: ');
read (s);
f:=0;
while s<>'.' do begin
if s=' ' then
begin
f:=f+1;
read (s);
end
else begin
if f>m then
m:=f;
f:=0;
read (s);
end;
end;
writeln (m);
readln;
readln; { TODO -oUser -cConsole Main : Insert code here }
end.