Вывести в порядке возрастания те элементы массива, которые больше заданного числа А

const N=10;
type mas=array[1..n] of integer;
var
otr,r,t: array[1..N] of integer; k,i,j:integer;
 
procedure vvod(var a:mas);
begin randomize;
for i:=1 to N do begin a[i]:=random(36)-5;
write(a[i]:3) end; writeln;
end;
 
procedure uslov(z:mas; var k1:integer; var r1:mas);
var ch1,ch2:integer;
begin
readln(ch1);
readln(ch2);
k1:=0;
for i:=1 to N do
if (z[i]>ch1) and (z[i]<ch2) then begin
k1:=k1+1;
r1[k1]:=z[i];
                                  end;
end;
 
procedure vozrast(k2:integer; var r2:mas);
var nmin,n_min,temp:integer;
begin
For j:=1 to k2-1 do begin
n_min:=j;
for i:=j+1 to k2 do
if r2[i]<r2[nmin] then n_min:=i;
temp:=r2[n_min];
r2[nmin]:=r2[j];
r2[j]:=temp;
                    end;
end;
 
procedure vuvod(t1:mas);
begin
for j:=1 to N do write(t1[j]:2);
readln;
end;
 
begin
vvod(otr);
uslov(otr,k,r);
vozrast(k,r);
vuvod(r);
readln();
end.

const N=10;
type mas=array[1..n] of integer;
procedure vvod(var a:mas);
var i:byte;
begin randomize;
for i:=1 to N do
 begin
  a[i]:=random(36)-5;
  write(a[i]:3)
 end;
writeln;
end;
procedure vozrast(var r2:mas);
var i,j,temp:integer;
begin
For j:=1 to n-1 do
for i:=j+1 to n do
if r2[i]>r2[j] then
 begin
  temp:=r2[i];
  r2[i]:=r2[j];
  r2[j]:=temp;
 end;
end;
procedure uslov(z:mas;k1,k2:integer);
var i:integer;
begin
writeln('Vvedite interval ');
readln(k1,k2);
for i:=1 to N do
if (z[i]>k1) and (z[i]<k2) then
write(z[i],' ');
end;
 
var
otr: mas;
k,r:integer;
begin
vvod(otr);
vozrast(otr);
uslov(otr,k,r);
readln;
end.

uses crt;
const N=10;
type mas=array[1..n] of integer;
procedure vvod(var a:mas);
var i:byte;
begin
writeln('Ishodnyj massiv:');
for i:=1 to N do
 begin
  a[i]:=random(36)-5;
  write(a[i]:4)
 end;
writeln;
end;
procedure vozrast(var r2:mas;x:integer);
var i,j,temp:integer;
begin
writeln('Otsortirovannyj interval:');
For i:=1 to x-1 do
for j:=i+1 to x do
if r2[i]>r2[j] then
 begin
  temp:=r2[i];
  r2[i]:=r2[j];
  r2[j]:=temp;
 end;
for i:=1 to x do
write(r2[i]:4);
writeln;
writeln;
end;
procedure uslov(z:mas;k1,k2:integer;var z2:mas;var n1:integer);
var i:integer;
begin
writeln('Vvedite interval ');
readln(k1,k2);
n1:=0;
for i:=1 to N do
if (z[i]>k1) and (z[i]<k2) then
 begin
  n1:=n1+1;
  z2[n1]:=z[i];
 end;
writeln('Chisla iz intervala (',k1,'-',k2,')');
for i:=1 to n1 do
write(z2[i]:4);
writeln;
writeln;
end;
 
var
otr,res: mas;
k,r,m:integer;
begin
clrscr;
randomize;
vvod(otr);
uslov(otr,k,r,res,m);
vozrast(res,m);
readln
end.

const N=20;
type mas=array[1..n] of integer;
Var otr,otresk:mas; i,z:integer;
 
procedure vvod(var a:mas);
begin randomize;
for i:=1 to N do begin a[i]:=random(33)-2;
                 write(a[i]:2)
                 end; writeln;
end;
 
procedure peremech(otre:mas; var otres:mas);
var r:mas; k:integer;
begin
k:=0;
for i:=1 to N do if (otre[i]<>0) then begin
inc(k);
r[k]:=otre[i] end;
for i:=1 to N-k do otres[i]:=0;
For i:=N-k+1 to N do
otres[i]:=r[i-(N-k)];
end;
 
procedure vuvod(otreski:mas);
begin
for i:=1 to N do write(otreski[i]:2);
readln;
end;
 
begin
vvod(otr);
peremech(otr,otresk);
vuvod(otresk);
end.

uses crt;
const N=20;
type mas=array[1..n] of integer;
Var otr:mas;
    i,z:integer;
procedure vvod(var a:mas);
begin
writeln('Ishodnyj massiv');
for i:=1 to N do
 begin
  a[i]:=random(33)-2;
  write(a[i]:4)
 end;
writeln;
writeln;
end;
procedure peremech(var otr:mas);
var i,j,k,x:integer;
begin
k:=0;
for i:=1 to N do
if (otr[i]=0) then
 begin
  inc(k);
  x:=otr[i];
  for j:=i downto k+1 do
  otr[j]:=otr[j-1];
  otr[k]:=x;
 end;
end;
 
procedure vuvod(var otr:mas);
begin
writeln('Nuli peremesgheny v nachalo:');
for i:=1 to N do
write(otr[i]:4);
readln;
end;
 
begin
clrscr;
randomize;
vvod(otr);
peremech(otr);
vuvod(otr);
end.