Будьте добры, помогите с задачкой по программированию. Паскаль.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Var A:array[1..100] of integer;
i,j,k:integer;
s,s1:string;
Begin
write('Введите строку: ');readln(s);
k:=Pos(' ',s);i:=0;
write('Слова: ');
While k<>0 do
Begin
k:=Pos(' ',s);
s1:=Copy(s,1,k);
write(s1);
Delete(s,1,k);
if k<>0 then
Begin
inc(i);
A:=Length(s1)-1;
End;
End;
write(s);
A[i+1]:=Length(s);
writeln;
writeln('Массив длин слов');
For j:=1 to i+1 do
write(A[j]:3);
End.