Поменять местами элементы в массиве (реверс)

[Андрей.12]

вход:1234
выход:4321

var
a:array[0..10] of integer;
n,i,k:integer;
begin
n:=4;
for i:=1 to n do
begin
write ('a[',i,']=');
readln(a[i]);
end;
for n to i do
write(a[i],' ');
readln;
end.

for n to i do как цикл не от 1 до 4, а от 4 к 1 надо наверное

[ОДИНОЧЕСТВО В СЕТИ]

for n to i do

замени на

for i:= n downto 1 do

[Андрей.12]

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

[ОДИНОЧЕСТВО В СЕТИ]

как слово разделить на буквы и присвоить каждую букву массиву.

к каждой букве строки можно обращаться по индексу
s:='mama' ; s[1]=m s[2]=a и т.д.

поменять местами символы в обратном порядке

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

[Андрей.12]

можно пояснение к коду? и еще

s[k-i+1]:=tmp

математическая ошибка

[ОДИНОЧЕСТВО В СЕТИ]

математическая ошибка

с чего вы взяли?

[Андрей.12]

var
k,i:integer;
s,tmp:string;
begin
write(':');
readln(s);
k:=length(s);
for i:=1 to k div 2 do begin
tmp:=s[i];
s[i]:=s[k+1];
s[k-i+1]:=tmp;
write('! ',tmp);
readln;
end.

[Alex Cones]

Почитайте про перемещение элементов: http://www.programmersforum.ru/showthread.php?t=70310
Сразу поймете, в чем Ваша ошибка.