цикл: в линейной последовательности поменять местами 1-й и N-й, 2-й и N-1 й и т.д.

[Serge_Bliznykov]

Это возможно только если n чётное.

неправда Ваша! Вы заблуждаетесь. Просто при нечётном N центральный элемент остаётся на своём месте (меняется сам с собой, если Вам угодно )
и цикл лучше крутить так:

for i:=1 to N div 2 do
  { 
    тут меняете местами L[i] и L[n-i+1]
  }

[ВДПУ]

Я сделал программу, но она все равно не работает.

var radok:string;
dop: Char;
i,L,n:integer;
begin
writeln('Vvedit slovo: ');
readln(radok);
L:=length(radok);
n:=L;
for i:=1 to n div 2 do
begin
radok[i]:=dop;
radok[i]:=radok[n-i+1];
dop:=radok[n-i+1];
end;
writeln(radok);
readln;
end.

[Valio]

n :=length(radok);
for i:=1 to n div 2 do
begin
dop := radok[i];
radok[i]:=radok[n-i+1];
radok[n-i+1] := dop;
end;

Вот както так..

неправда Ваша! Вы заблуждаетесь. Просто при нечётном N центральный элемент остаётся на своём месте

Да, согласен )

[ВДПУ]

Нет, если так, то просто разделяет строку пополам

[ВДПУ]

ой, простите, все так