Hab mich ja dafür entschuldigt...
Ich denke, die Prozedur ist ok, aber ich klatsch sie trotzdem mal heir rein
Delphi-Quellcode:
function wortverdrehen(eingabe:string):string;
var
laenge,k:integer;
wort:string;
buchstabe:char;
begin
result:='';
wort:=eingabe;
while length(wort)>0 do
begin
laenge:=length(wort);
k:=random(laenge)+1;
buchstabe:=wort[k];
result:=result+buchstabe;
delete(wort,k,1);
end;
end;