строки

[MIKE11IPME]

и так зада звучит так:
ввести строку , выбрать слова которые стоят на парных позициях,
выбрать эти слова и напечатать их перевернутыми

вопрос как перевернуть слово
вот чё я навоял

program LW6;
uses crt;
type mas=array[1..60] of string;
var st2,st,st3,st1:string;b,a,g:mas;n,i ,l,j,q,x,w:integer;
procedure sort(var a,b:mas);
begin
for i:=1 to n do
if i mod 2 = 0 then
begin
b[j]:=a[i];
inc(j);
end;
end;
procedure vubor(var a:mas;var st:string;var n:integer);
begin
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;
end;
begin
clrscr;
writeln('vpeshite stroky:');
readln(st);
n:=0;
x:=length(st);
if st[x]<>' ' then st:=st+' ';
vubor(a,st,n);
writeln;
for i:=1 to n do write(a[i],'-');
j:=1;
sort(a,b);
writeln;
for j:=1 to j do
begin
write(b[j],' ');
end;
readln;
for j:=1 to j do
begin
q:=0;
st1:=b[j];
x:=length(st1);
w:=x;
for x:=1 to x do
begin
l:=w-q;
inc(q);
st2:=st1;
st2[l]:=st1[x];
st3:=st2+' ';
end;
end;
writeln(st3);
readln;
end.

вот в перевороте слов ошибка

[DoDge_VipeR]

как перевернуть слово

for i:= 1 to length(s) div 2 do
begin
tm:=s[i];
s[i]:=s[length(s)-i+1];
s[length(s)-i+1]:=tm;end;

[MIKE11IPME]

program LW6;
uses crt;
type mas=array[1..60] of string;
var st2,st,st3,st1:string;b,a,g:mas;p,n ,i,l,j,q,x,w:integer;
procedure sort(var a,b:mas);
begin
for i:=1 to n do
if i mod 2 = 0 then
begin
b[j]:=a[i];
inc(j);
end;
end;
procedure vubor(var a:mas;var st:string;var n:integer);
begin
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;
end;
begin
clrscr;
writeln('vpeshite stroky:');
readln(st);
n:=0;
x:=length(st);
if st[x]<>' ' then st:=st+' ';
vubor(a,st,n);
writeln;
j:=1;
sort(a,b);
writeln;
write('slova na parnux poziciax: ');
for j:=1 to j do
begin
write(b[j],' ');
end;
writeln;
writeln;
for j:=1 to j do
begin
q:=0;
st1:=b[j];
x:=length(st1);
w:=x;
for x:=1 to x do
begin
l:=w-1-q;
inc(q);
st2:=st1;
insert(st1[x],st2,l);
end;
p:=length(st2);
delete(st2,p,1);
st2:=st2+' ';
b[j]:=st2;
end;
write('RESYLbTAT: ');
for j:=1 to j-1 do write(b[j]);
readln;
end.

эт я уже исправил
эт уже код полностью рабочей программы

Но всё равно спасибо огромное за помощь)))

[MIKE11IPME]

выше указанная программа не работает при определённых условиях
в ниже написанном коде программы я исправил ошибки

program LW6;
uses crt;
type mas=array[1..60] of string;
var st2,st,st3,st1:string;b,a,g:mas;p,n,f,i,xe,rt,k,l,j,q,x,w:integer;c:boolean;
procedure sort(var a,b:mas);
begin
 j:=1;
 for i:=1 to n do
 if i mod 2 = 0 then
  begin
  b[j]:=a[i];
  inc(j);
  end;
 xe:=j;
end;
procedure vubor(var a:mas;var st:string;var n:integer);
begin
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;
end;
procedure stroka(var st:string);
begin
while st[1] = ' ' do delete(st,1,1);
st:=st+' ';
st:=concat(st,' ');
while pos('  ',st) <> 0 do delete (st,pos('  ',st),1);
end;
procedure Tool(var b:mas);
var tm:char;s:string;
begin
for j:=1 to xe do
  begin
  s:=b[j];
  for i:= 1 to length(s) div 2 do
  begin
  tm:=s[i];
  s[i]:=s[length(s)-i+1];
  s[length(s)-i+1]:=tm;
  end;
  s:=s+' ';
  b[j]:=s;
  end;
end;
begin
 clrscr;
 writeln('vpeshite stroky:');
 readln(st);
 stroka(st);
 n:=0;
 vubor(a,st,n);
 writeln;

 sort(a,b);
 writeln;
 write('slova na parnux poziciax: ');
 for j:=1 to xe do
 begin
 write(b[j],' ');
 end;
 writeln;
 writeln;
 Tool(b);
 write('RESYLbTAT: ');
 for j:=1 to j-1 do write(b[j]);
 readln;
end.