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.