Дан массив целых чисел x(n) . Сформировать массив y(m) , поместив в него в порядке возрастания все различные числа, входящие в массив . Группировку массивов не производить — Pascal(Паскаль)

uses crt;
var x,y:array[1..100] of integer;
    m,n,i,j,k:byte;
    mn:integer;
begin
clrscr;
randomize;
write('m=');readln(m);
writeln('Массив Х:');
for i:=1 to m do
 begin
  x[i]:=random(20);
  write(x[i],' ');
 end;
writeln;
writeln;
i:=1; n:=0;
while i<=m do
 begin
  mn:=x[i];{мин текущее число}
  for j:=i+1 to m do
  if x[j]<mn then mn:=x[j];{нашли меньше, оно мин}
  n:=n+1;{увеличиваем размер нового массива}
  y[n]:=mn;{записываем туда минимум}
  k:=1;
  while k<=m do
  if x[k]=mn then {ищем равные минимуму}
   begin
    for j:=k to m-1 do
    x[j]:=x[j+1]; {удаляем их путем сдвига влево}
    m:=m-1;{уменьшаем размер исходного массива}
   end
  else k:=k+1;
 end;
writeln('Массив Y:');
for i:=1 to n do
write(y[i],' ');
readln
end.