Wenn du's so machst, wie von MCeddy02 könntest du den Code auch in eine Funktion stecken:
Delphi-Quellcode:
function kehre_um (wort: string): String;
{kehrt die Buchstabenreihenfolge um}
var
i: integer;
begin
Result := '';
for i := length(wort) downto 1 do
Result := Result + wort[i]
end; {of kehre um}