Строка: Подсчитать количество слов в заданной последовательности - Pascal ABC

Формулировка задачи:

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

int flag=0, k=0, i;
for(i=0; i<n; i++) 
  if (flag==0) {
    if S[i] == ' ') continue;
    else {
       k++;
       flag = 1;
    }
  }
  else {
    if (S[i]==' ') flag = 0;
  }
}
printf ("%d слов\n");

Я перевела так, но не работает

Var i,k,n,f: integer; s:string;
Begin
k:=0; 
readln(n); f:=0; 
read(s);
for i:=1 to n do
if f=0 then   if s[i]<>'' then k:=k+1 else f:=1   //пишет индекс находился вне границ массива
  else if  s[i]='' then f:=0;
writeln(k);   
end.

Решение задачи: «Строка: Подсчитать количество слов в заданной последовательности»

textual
                            Листинг программы 
                        
                            var
 
s: string;
 
i, k, k2, n: integer;
 
begin
writeln('введите n);
readln(n); 
writeln('введите строку');
 
readln(s);
 
k := 0;
 
k2:=0;
 
s:=s+' ';
 
for i := 1 to length(s) do
 
if s[i] = ' ' then begin
 
k2:=(i-1)-k2;
 
if k2=n then k := k + 1; 
 
k2:=i;
 
end;
 
writeln('в предложении ', k, ' слов');
 
end.