Определить количество букв первого слова в предложении. Задача почти сделана, нужно подредактиров

[MonStar]

Задача почти сделана, нужно подредактировать

program sstring;
var s:string; i,x:integer;
begin
readln(s);
x:=Length(s);
for i:=1 to x do
begin
if s=' ' then writeln(i-1);
end;
readln;
end.

Как остановить выполнение цикла после первого вывода writeln

[psycho-coder]

if s=' ' then 
begin
  writeln(i-1);
  Break;
end;

А Вообще

WriteLn(Pos(#32, s));