Создать список , который переводит введенную строку наоборот

[NickПавел]

Создать список , который переводит введенную строку наоборот

[Aranea tela telam]

Program pr15;
var
a:string;
i:integer;
begin
readln(a);
for i:=Length(a) downto 1 do
write(copy(a,i,1)); 
end.

[eoln]

Вместо copy(a,i,1) можно просто a[i].
Но тут нужно решать через списки. Вобщем стек оптимален будет. На форуме очень много примеров (моих постов по динамическим спискам штук 20 наберётся)

[Вадим Мошев]

А что если такое решение

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

?

Извините, не увидел про списки.