До начала обработки массива в массив записывается первый элемент . В дальнейшем для очередного числа предварительно проверяется, нет ли равного ему числа в массиве . Если такое число не обнаружено, в массив дописывается новый элемент.
uses crt;
const n=10;
var m,el:array[1..n]of integer;
i,j,k:integer;
f:boolean;
begin
clrscr;
write('-> ');
for i:=1 to n do read(m[i]);
readln;
k:=0;
for i:=1 to n do
begin
f:=false;
for j:=1 to k do if m[i]=el[j] then f:=true;
if not f then
begin
inc(k);
el[k]:=m[i];
end;
end;
writeln('Элементы');
for i:=1 to k do write(el[i],' ');
readln;
end.