Auslesen von Buchstaben in Arrays

[Alallart]

Ist nicht die Lösung der Aufgabe, aber zeigt evt. den Weg:

Delphi-Quellcode:

const
  max = 6;

var
  stadt : array[1..max] of string;

procedure TForm1.FormCreate(Sender: TObject);
begin
  stadt[1] := 'Bautzen';
  stadt[2] := 'Bonn';
  stadt[3] := 'Dresden';
  stadt[4] := 'Freital';
  stadt[5] := 'Großenhain';
  stadt[6] := 'Aachen';
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  gesucht = 'b';
var
  i, k, c: Integer;
begin
  c := 0;
  for i := 1 to max do
    for k := 1 to Length(stadt[i]) do
      if UpCase(stadt[i][k]) = UpCase(gesucht) then
        inc(c);

  ShowMessage('Der Buchstabe "' + gesucht + '" kommt ' + IntToStr(c) + ' vor.');
end;