строки!!!коварное задание...

[Грета]

ребята-помогите!задание такое-дана строка символов.группы символов,разделенные 1-м или несколькими пробелами и не содержащие пробелов внутри себя,будем называть словами.получить вектор A,элементы которого-количество символов в каждом слове.
есть код,но он неверный,а почему-не могу понять,в чем ошибка-тоже.вроде бы все правильно...подскажите пожалуйста.
вот код:

program my;                                                                   
const mm=50;                                                                  
                                                                              
type TVec=array[1..mm] of real;                                               
var                                                                           
S:string[50];                                                                
a:TVec;                                                                       
n:integer;                                                                    
i:byte;                                                                       
begin                                                                         
write('enter S:');                                                            
readln(S);                                                                    
begin                                                                         
while Pos(' ',S)>0 do                                                        
delete(S,Pos(' ',S),1);                                                       
                                                                              
n:=length(S);                                                                 
writeln('a[',n,']=');                                                         
readln                                                                        
end;                                                                          
end.

заранее спасибо.

все это-в turbo pascal

[Vova_P]

begin
delete(S,Pos(' ',S),i);//тут либо опечатка либо i вообще не использовано
...
end;

//массив тоже введен не понятно зачем
чем смог помог,сам новичок

[whatever]

const
mm=50;

type TVec=array[1..mm] of integer;
 var
 S:string[50];
 a:TVec;
 i,j,k:integer;

 begin
 write('enter S:');
 readln(S);
 i:=1;
 j:=0;
 k:=1;
 while i<>length(S)+1 do
  begin
    if s[i]<>' ' then j:=j+1;
    if (s[i]=' ') or (i=length(S)) then
      begin
        A[k]:=j;
        k:=k+1;
        j:=0;
      end;
    i:=i+1;
  end;
 for i:=1 to k-1 do write(A[i],' ');
 readln;
END.

Вообще операторы работы со строками хороши, но в строго определенных случаях, я стараюсь ими лишний раз не пользоваться.

[Грета]

огромное человеческое спасибо!