Дан одномерный целочисленный массив из n элементов. Найти количество различных чисел среди элементов этого массива. Например, если задан массив, состоящий из чисел 10,13,10,18,5,10,5, то ответ будет 4, поскольку различные числа это 10,13,18,5. Рекомендуется использовать ещё один массив для хранения различных чисел — Pascal(Паскаль)

const n=10;
var Mas,Mas2:array[1..n]of integer;
i,a,j:integer;
flag:boolean;
begin
for i:=1 to n do
begin
write('Введите ',i,'элемент: ');
readln(Mas[i]);
end;
a:=0;

for i:=1 to n do
begin
flag:=false;
for j:=1 to n do
if (Mas[i]=Mas[j]) and (i<>j) then
flag:=true;

if flag=false then
begin
inc(a);
Mas2[a]:=Mas[i];
end;
end; {for}

write('Входной массив: ');
for i:=1 to n do
write(Mas[i],' ');

writeln;

write('Неповторяющиеся элементы: ');
for i:=1 to a do
write(Mas2[i],' ');

readln;

end.