Дан одномерный целочисленный массив из 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.