Помогите пожалуйста!, строка Опции

[Balamut]

в даном предложении выделить слова и поместить их в одномерный массив символов

Program pr_1;
var d:string; a:array[1..100] of string;
i,k,l,j,f:integer;
begin
readln(d);
l:=1; j:=0;
for i:=1 to length(d) do
if d[i]= ' ' then
begin
k:=i;
j:=j+1;
f:=k-l;
a[j]:=copy(d,l,f);
i:=k+1
end;
for i:=1 to j do
writeln(a[i]);
end.

в данной задаче необходиммо вводить в конце пробел

"[color=#000000]как решить задачу чтобы в конце не надо было вводить пробел...


я был бы вам очень благодарен!!!