Für den zweiten Teil der Aufgabe würde ich wohl so vorgehen: Wiederum zwei geschachtelte For-Schleifen, die äußere über das Array, die innere über die einzelnen Strings. Die innere Schleife sollte aber von 1 bis Length(String)-1 (oder von 2 bis Length(String)) gehen. In der inneren Schleife wird der Wert des aktuellen Buchstabens mit dem vorhergehenden verglichen (oder im zweiten Fall mit dem nachfolgenden).
Hier mal die Ausführungen ansatzweise in Code-Form
Delphi-Quellcode:
editstadt.Text:= '';
for i := 1 to max do
for k := 2 to Length(stadt[i]) do
if UpCase(stadt[i][k]) = UpCase(stadt[i][k-1]) then
editstadt.Text:= editstadt.Text + stadt[i][k] + ', ';
Der Code ist ungetestet weil aus dem Kopf getippt. Ich hoffe, dass alles passt und ich nichts übersehen habe, was z.B. zu einer Zugriffsverletzung führen könnte.
Grüße
Dalai