Работа со строками Pascale

[MIKE11IPME]

Из предложения выбрать все слова , которые стоят на непарных порядковых позициях , а слова которые на парных написать в перевёрнутом варианте

И так дело в общем не мудрёное , но синий экран у мну высасывает мозг Тт
вот что я навоял
program LW6;
uses crt;
type mas=array[1..100] of string;
var st2,st,st1:string;b,a:mas;n,i,j,x:i nteger;
procedure sort(var a,b:mas);
begin
j:=1;
for i:=1 to n do
if i div 2 = 0 then
begin
b[j]:=a[i];
inc(j);
end;
end;
begin
clrscr;
writeln('vpeshite stroky:');
readln(st);
while st[1]=' ' do delete(st,1,1);
a[1]:=copy(st,1,pos(st,' ')-1);
delete(st,1,pos(st,' '));
x:=length(st);
if st[x]<>' ' then st:=st+' ';
writeln(x,' ',a[1]);
n:=1;
while length(st) > 1 do
begin
inc(n);
a[n]:=copy(st,pos(' ',st)+1,pos(st,' ')-1);
delete(st,pos(' ',st),pos(st,' ')-1);
writeln(st);
end;
sort(a,b);
st:=b[j];
for j:=1 to length(b[i]) do
begin
b[i]:=' ';
insert(st[j],b[i],1);
end;
writeln(st);
for i:=1 to length(b[i]) do
writeln(b[i],' ');
readln;
end.

Всё бы ничего да ток в цикле while не работает делит и копи , массив а остаётся неизменным , а в строке ничего не удаляется ....
помогите исправить ошибку

[MIKE11IPME]

хэх уже увидел свою ошибку в команде pos ))

[MIKE11IPME]

Вот рабочая версия этой программы , ток без переворота слов
program LW6;
uses crt;
type mas=array[1..60] of string;
var st2,st,st1:string;b,a,l:mas;n,i,j,x :integer;
begin
clrscr;
writeln('vpeshite stroky:');
readln(st);
writeln(st);
readln;
n:=0;
x:=length(st);

if st[x]<>' ' then st:=st+' ';

while length(st) > 2 do
begin
inc(n);
if st[1]=' ' then delete(st,1,1);
a[n]:=copy(st,1,pos(' ',st)-1);
delete(st,1,pos(' ',st)-1);
end;

for i:=1 to n do write(a[i],'-');

j:=1;
for i:=1 to n do
if i mod 2 = 0 then
begin
b[j]:=a[i];
inc(j);
end;

for j:=1 to j do
begin
writeln;
write(b[j],' ');
end;
readln;
end.