Помощь в программе паскаль

[Mijet389]

Вводится текст. Конец ввода . Найти количество букв слов, слова разделяются пробелом.
program z2;
uses crt;
var a,n:integer;
ch:char;
begin
n:=0;
ch:=readkey;
write(ch);
while(ch=#0)=false do begin if (ch=' ')=true then n:=n+1;
ch:=readkey;
write(ch);
while(ch=#0)=true do begin ch:=readkey; if (ch=#59)=true then ;ch:=readkey;
write(ch);
while(ch=#0)=true do begin ch:=readkey; end; writeln(n);
end;
end;
end.
Не получается, помогите пожалуйста исправить

[Mijet389]

конец ввода F1