verschachtelte schleifen

[baala]

Hallo ihr,
ich habe ein kleines Problem. und zwar: ich schreibe morgen eine Arbeit über Delphi.
Ich befürchte, dass in der Arbeit verschachtelte for schleifen zu einsatz kommen, nur habe ich leider
nicht viel ahnung, wie ich eine solche schreiben kann.
Ich habe die Aufgabe einmal eingescannt: http://img413.imageshack.us/img413/2603/fragebj3.jpg

Es gibt noch ein paar lustige sachen!
1. das mit stringreplace zu machen, sollen wir nicht, so wollte ich das zu erst machen
2. Ich habe das ganz programm schon geschrieben, nur halt nicht mit der verschachtelung:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
buh,dat:string;
begin
dat:='';
for i:=1 to length(edit1.text)  do
begin
buh:=copy(edit1.text,i,1);
if buh=edit2.text then
dat:=dat+edit3.text
else dat:=dat+copy(edit1.Text,i,1) ;
end;
edit1.text:=dat;
end;

//ich hatte das programm etwas erweitert:in edit1 kommt das wort rein, in edit2,dass gesuchte zeichen und in edit3, dass zeichen welche für das zeichen aus edit2 eingesetzt werden soll

Geht auch gut, nur solle ich das so nicht machen.

3. Das mit der verschachtelung geht nicht richtig!
Der Lehrer hat das uns gezeigt und bei langen wörtern, bzw vielen ö's,
hat das Programm nicht richtig funktioniert, nur sollen wir das trotzdem so machen...

Ich hoffe ihr hab eine Idee, wie das funktionieren kann

Grüß
Baal


//upps, hatte das bild vergessen