Подсчитать максимальное количество идущих подряд пробелов - Free Pascal

var nmax,i,k,max:integer;
    c:char;
begin
write('Сколько символов ввести nmax=');
readln(nmax);
writeln('Введите ',nmax,' символов в строку,');
writeln('в том числа послеовательности пробелов, нажмите Enter');
max:=0;
k:=0;
for i:=1 to nmax do
 begin
  read(c);
  if c=' ' then inc(k)
  else if (c<>' ')or(i=nmax)then
   begin
    if k>max then max:=k;
    k:=0;
   end;
 end;
readln;
write('Максимальное количество пробелов подряд=',max);
readln
end.