Leerzeichen in einem String zählen

[loki91]

das wird hier zum ratespiel ^^

Hab mal alles ein bisschen übersichtlicher gemacht und bin der Meinung der Fehler liegt irgendwo hier:

Delphi-Quellcode:

for i := 1 to length(s) do
     begin
  if s[i] = ' ' then

Fehlermeldung ist ja, "erwartet Deklaration, aber Dateiende gefunden" und alles was nicht deklariert worden ist bzw. nichts zugewiesen worden ist, ist das 'i' :/