Переместить элемент массива в конец

 type
    massiv=array[-1000..1000] of integer;
var
    mass:massiv ;
    n,d,q,g,s,x:integer; // переменные для других процедур
 
procedure output (var count:integer);
    begin
        var k,i:integer;
        while i<count do
            begin
                i:=i+1;
                mass[i]:=random(count+count+1)-count;
                for k:=1 to i-1 do
                   if mass[k]=mass[i] then
                        begin
                           i:=i-1;
                        end;
            end;
            for i:=1 to count do
            write(mass[i],' ');
    end;
 
procedure spotpaste (var x:integer; var count:integer);
    begin
        var i,r,w:integer;
        if x=0 then writeln
            else
                begin
                    w:=mass[1];
                    for i:=1 to count do
                        begin
                          if mass[i]=x then
                              begin
                                  r:=mass[i];
                                  mass[i]:=mass[i+1];
                              end
                          
                             else mass[i]:=mass[i+1];
                              
                        end;
                    mass[0]:=w;
                    mass[count]:=r;
                    writeln();
                    for i:=0 to count do
                        write(mass[i],' ');
                end;
    end;
begin 
write('Введите элемент для перемещения в конец: '); readln(x);
    spotpaste(x,n);
end.