1:
2:
3:
4:
5:
6:
7:
8:

var
  anzahlen: array [0..255] of integer;
  astr: string;
  i: integer;
begin
  for i := 1 to length(astr) do
    anzahlen[ord(astr[i])] := anzahlen[chr(astr[i])] + 1;
end;					

1:
2:
3:
4:
5:
6:

var
  i: integer;
begin
  for i := 0 to 255 do
    memo1.lines.add('Das Zeichen ' + chr(i) + ' kommt ' + inttostr(anzahlen[i]) + ' mal vor'; 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

var
  i: integer;
  astr: string;
  count: integer;
begin
  for i := 1 to length(astr) do
    if astr[i] = 'a' then
      inc(count);
end;