Nhập vào một số N và số X,chạy từ 1 đến N và xoá X số bất kì.In ra N-K số còn lại

uses crt;
var i,n,x,dem:longint;
rand:byte;
begin
    clrscr;
    randomize;
    readln(n,x);
    dem:=0;
    for i:=1 to n do
       begin
           if (n-i)-(x-dem)>=0 then
           if dem<x then
              begin
                  rand:=random(2);
                  if rand=0 then inc(dem)
                     else writeln(i);
              end
           else writeln(i);
       end;
readln;
end.