Public Function RandomString(Optional MinLg = 5, Optional MaxLg = 10, _
  Optional Dummy)
Const LegalChars = _
  "0123456789"
Dim Lg As Long, I As Long, Ch As String * 1, Res As String
  Randomize
  Res = ""
  Lg = Int(Rnd() * (MaxLg - MinLg + 1) + MinLg)
  For I = 1 To Lg
    Do
      Ch = Chr(Rnd() * 128)
    Loop Until InStr(LegalChars, Ch) > 0
    Res = Res & Ch
  Next I
  RandomString = Res
End Function

program Count;
uses crt;
 
type
  TAbc = 'A'..'Z';
  TArray = array[TAbc] of Byte;
 
var
  Str1, Str2 : String;
  j : TAbc;
  ErgebnisArray : TArray;
 
procedure CountAbc(Str : String; var ErgebnisArray : TArray);
var
  i : Byte;
begin
  for i := 1 to length(Str) do
    inc(ErgebnisArray[Upcase(Str)]);
end;
 
begin
  clrscr;
  for j := 'A' to 'Z' do
    ErgebnisArray[j] := 0;
  Str1 := 'Baum';
  Str2 := 'Rabe';
  CountAbc(Str1, ErgebnisArray);
  CountAbc(Str2, ErgebnisArray);
 
  for j := 'A' to 'Z' do
    if ErgebnisArray[j] <> 0 then
      write(j, ' : ', ErgebnisArray[j]);
 
  readln;
end.