[angvelem]

Упростим немного код:

Код:

function Reverse(St : String) : String; 
var
  I : Integer; 
begin
  Result := '';
  if St <> '' then 
  for I := Length(St) downto 1 do 
    Result := Result + St[i]; 
end;  

P.S. Конечно "вниз" до 1.