Thuật toán đếm số phần tử khác nhau của mảng

Bài 20: Cho một dãy số nguyên gồm n phần tử.
a.Nhập dãy số (n nhập từ bàn phím, 1<=n<=100).
b.In dãy vừa nhập ra màn hình.
c.Đếm xem trong dãy ban đầu có bao nhiêu giá trị khác nhau
d.Nhập vào một số nguyên k (1<=k<=n). xoá phần tử thứ k trong
dãy. viết dãy kết quả ra màn hình.
program p2b20;
var a:array[1..100]of integer;
i,j,n,k,dem:integer;
th:boolean;
begin
write('nhap n=');
readln(n);
for i:=1 to n do begin
write('a[',i,']=');
readln(a[i]);
end;
writeln('in day vua nhap ta man hinh');
for i:=1 to n do writeln('a[',i,']=',a[i]);
dem:=1;
for i:=2 to n do begin
th:=true;
for j:=1 to i-1 do if a[j]=a[i] then
th:=false;
if th=true then dem:=dem+1;
end;
writeln('so gia tri khac nhau la:',dem);
write('nhap k=');
readln(k);
for i:=k to n-1 do a[i]:=a[i+1];
writeln('in day vua xoa ra man hinh');

for i:=1 to n-1 do writeln('a[',i,']=',a[i]);
readln;
end.