Перевернуть строку

[Ozerich]

Deight,вариант тоже рабочий но требует еще одну строку.

[Deight]

Что значит тоже единственный и не повторимый :-), что значит еще одну строку?

[Ozerich]

Deight ну ты же сам писал код
вот твой вариант

For i:=length(s) downto 1 do 
sn:=sn+s[i];
s:=sn;

надо использовать в программе 2 переменные sn и s как строки.
А зачем?когда можно обойтись 1 строкой

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

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

[Deight]

Ну если на то пошло

function DEIGHT(s:string):string;
var i:integer;
begin
 For i:=Length(s) downto 1 do
  InSert(s[Length(s)-i+1],s,1);
 SetLength(s,Length(s) div 2);
 Result:=s;
end;