Найти количество повторяющихся элементов

procedure TForm1.Button1Click(Sender: TObject);
var k,i,j,kol,g,n:integer;
a:array[1..30] of char;
f:boolean;
 
begin
k:=strtoint(Edit1.Text);
for i:=1 to k do
a[i]:=memo1.Lines[i-1][1];
kol:=0;
f:=true;
 
for i:=1 to k do begin
g:=1;
for j:=i+1 to k do
if a[i]=a[j] then begin  f:=false; kol:=kol+1; end; end;  
 
if f then  memo2.Lines.Add('vse chisla raznie')
else memo2.Lines.Add('kol-vo povtorov elementa: '+ a[i] + inttostr(kol)+ ' raz(a)');
end;
end.

procedure TForm1.Button1Click(Sender: TObject);
var
a:array[1..1000]of integer;
i,kol,ch,j,n:integer;
begin
  n:=StrToInt(Edit1.Text);
  kol:=0;
  memo1.Clear;
  memo2.Clear;
  randomize;
  for i:=1 to n do
   begin
     a[i]:=random(15);
     memo1.Lines.Add(IntToStr(a[i]));
   end;
 
  for j:=1 to n do
   begin
    kol:=0;
    ch:=a[j];
    for i:=1 to n do
    if a[i]=ch then inc(kol);
   memo2.Lines.Add('ýëåìåíò '+IntToStr(ch)+' âñòðå÷àåòñÿ '+IntToStr(kol)+' ðàç');
   end;
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
  Button1.Enabled:=true;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  button1.Enabled:=false;
end;
 
end.