Определить количество букв в каждом слове (Паскаль)

[afdotya]

Введите текст .конец ввода точка . Определить количество букв в каждом слове слова разделяются пробелом.

я написал программу но она работает не правильно после пробела переводит на следующую строчку .

uses crt;
var x:char;
i,S:integer;
begin
i:=0;
s:=0;
writeln('Введи текст. Конец ввода — точка.');
repeat
x:=readkey;
write(x);
if (x<>' ') then inc(i);
if (x=' ') or (x='.') then begin
inc(S);
writeln(' В ',S,'-ом слове ',i,' букв');
i:=0;
end;
until x='.';

end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.