Решить на массив из пяти элементов и подсчитать количество уникальных чисел в

Program first;
var mas:array[1..5] of integer; i,a,b:integer;
begin
for i:=1 to 5 do
readln(mas[i]);
for i:=1 to 4 do
for j:=2 to 5 do
if mas[i]>mas[j] then
mas[i]:=mas[j];
a:=mas[1]
b:=0;
for i:=1 to 4 do
if a<>mas[i] then
b:=b+1;
writeln('Уникальных чисел в массиве',b);
end.