строки

[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:=g[i];
st1:=b[j];
x:=length(st1);
w:=x;
for x:=1 to x do
begin
l:=w-q;
inc(q);
st2[l]:=st1[x];
st3:=st2+' ';
end;
end;
writeln(st3);
readln;
end.

вот в перевороте слов ошибка
вводим ghgh papa мы должны получить apap а получаем aapa ?????

Всё уже исправил вот ответ кому надо в этой теме http://www.programmersforum.ru/showthread.php?t=101583