1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

type TBuchstabe='a'..'d';
       THaeufigkeiten= array [TBuchstabe] of byte;


function h(text:string):THaeufigkeiten;
var i:TBuchstabe;
    j,k:byte;
    temp:THaeufigkeiten;
begin
  for i:=low(TBuchstabe) to high(TBuchstabe)do
  Temp[i]:=0;

  for i:=low(TBuchstabe) to high(TBuchstabe)do
   for j:=1 to length(text) do
    if (text[j]=i) then
     inc(temp[i]);
     h:=temp;
end;					

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

VAR myarray : THaeufigkeiten;
       i, max : TBuchstabe;
begin
  myarray:=h(my_tect);
  max:='a';
  for i:=Low(myarray) To High(myarray) do
  if myarray[i] > myarray[max] then max:=i;
  result:=max;
end;