Wenn du Replace nicht benutzen kann, ist der Sinn der Aufgabe wohl etwas mit einer Schleife zu machen. Dann könnte es so aussehen:
Delphi-Quellcode:
Result:='';
for i:=1 to Length(text) do
begin
if text[i]=alt then
Result:=Result+neu
else
Result:=Result+text[i];
end;