Nhập vào một mảng,in ra màn hình số lần xuất hiện của các phần tử trong mảng(pascal)

uses crt;
var a: array[1..100] of integer;
n,i,d,j:integer;
begin
clrscr;
write('nhap n: ');  readln(n);
for i:=1 to n do
begin
write('Nhap a[',i,']: ');   readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
d:=a[i];
a[i]:=a[j];
a[j]:=d;
end;
d:=1;
for i:=1 to n do
if a[i]<>a[i+1] then
begin
writeln(a[i],' => ',d,' lan');
d:=1;
end
else d:=d+1;
readln;
end.

program xuat_hien;

uses crt;

var A:array[1..1000] of integer;

     n,i,d,j:integer;

begin

      clrscr;

      write('Nhap n: ');  readln(n);

      for i:=1 to n do

            begin

                  write('Nhap so thu ',i,': ');   readln(A[i]);

            end;

      for i:=1 to n-1 do

            for j:=i+1 to n do

                  if A[i]>A[j] then

                        begin

                              d:=A[i];

                              A[i]:=A[j];

                              A[j]:=d;

                        end;

      d:=1;

      for i:=1 to n do

            if A[i]<>A[i+1] then

                  begin

                        writeln(A[i],' : ',d);

                        d:=1;

                  end

            else d:=d+1;

      readln;

end.