Обработка числовых данных

procedure kol(n1:longint);
var i,k,s:integer;
begin
for i:=1 to n1 do
begin
k:=n1 mod 10;
a[i]:=k;
n1:=n1 div 10;
inc(s);
end;
for i:=1 to s do
begin
for j:=i to s do
if a[i]=a[j] then inc(k);
writeln(a[i],k);
end;
end;

uses crt;
var a:array[1..100] of integer;
{Потом вставляете всё то что было написано выше.}
Begin{Это начало главной программы}
clrscr;
readln(n);
kol(n);
readkey;
end.

var
  n:longint;
  temp:string;
  i,j,nc,rc,cc:integer;
  m:set of char;
begin
  readln(n);
  str(n,temp);
  nc:=0;
  rc:=0;
  for i:=1 to length(temp) do
  begin
    if not (temp[i] in m) then
    begin
      m:=m+[temp[i]];
      cc:=0;
      for j:=1 to length(temp) do
        if temp[i]=temp[j] then
          inc(cc);
      if cc>1 then
      begin
        inc(nc);
        inc(rc,cc-1)
      end;
    end;
  end;
  writeln('Òàêèõ öèôð: ',nc,'. Ñóììà ïîâòîðîâ: ',rc)
end.

var
n:longint;
a,kol:array[1..20]of integer;
i,j,k,f:integer;
begin
repeat
writeln('vvedite chislo');
readln(n);
until n<=maxlongint;
while n>0 do
begin
inc(k);
a[k]:=n mod 10;
n:=n div 10;
end;
for i:=1 to k do
 for j:=1 to k do
  if a[i]=a[j] then inc(kol[i]);
  for i:=1 to k do
    begin
    f:=0;
        begin
        for j:=1 to i-1 do
        if a[j]=a[i]then f:=1;
       end;
    if (f=0)and(kol[i]>1) then writeln('cifra=',a[i],' povtorov= ',kol[i]);
   end;
   end.

var
  n:longint;
  temp:string;
  i,j,cc:integer;
  m:set of char;
begin
  readln(n);
  str(n,temp);
  writeln('Повторяющиеся цифры:');
  for i:=1 to length(temp) do
  begin
    if not (temp[i] in m) then
    begin
      m:=m+[temp[i]];
      write('Цифра ',temp[i],' повторяется ');
      cc:=0;
      for j:=1 to length(temp) do
        if temp[i]=temp[j] then
          inc(cc);
      writeln(cc,' раз(а)')
    end;
  end;
end.