Немного переделать задачу(pascal)

[VaKyM]

Работает, но надо что бы считало без пробелов, короче вот условие:

Дана строка длиной не более 255 символов. Группы символов, разделённых между собой одним пробелом и не содержащих пробелов внутри себя, назовём словами. Слова в строке отделены одним пробелом, в конце ставится точка. Подсчитать и распечатать количество символов в каждом слове.

Program lab_9_2;
uses crt;
var
st1:string;
x,d,i,h,g,c:integer;
t:real;
ch:char;
label 1;
Begin
1:clrscr;
textcolor(white);
writeln('vvedite text');
readln(st1);
d:=length(st1);
if st1[i] =' 'then x:=d-1;
write('kolichestvo simvolov v slovax ');
writeln(t:0:0);
textcolor(white);
writeln(d);
textcolor(white);
writeln('Povtorit'? da(y) net(n)');
while ch<>'n' do
begin
ch:=readkey;
if ch='y'then
goto 1;
end;
halt(1);
end.

[Mandrivnyk]

goto 1;

фу....

if st1[i] =' 'then x:=d-1;

вот она -- строчка моей мечты!!!
где обрамляющий цикл, а? добавь и все будет как надо.