In Deiner Aufgabenstellung (jpg Bild) steht aber auch kein Wort von Verschachtelung.
Nur etwas von for Schleifen.
Delphi-Quellcode:
function replace(Quelle,suche,ersetze:string):String
var
i:Byte;
begin
result:='';
for i:=1 to length(quelle) do
if quelle[i] = suche then
result:=result+ersetze
else
result:=result+quelle[i];
end;
Grüße
Klaus