Упорядочить массив

program sortt;
type
massiv=array[1..100] of integer;
var
nommax,max,nommin,y,min,x,nom:massiv;
w,u,p,s,d,a,f,h,j,k,b,i,n:integer;
 
begin
k:=0;
write('n=');
readln(n);
for i:=1 to n do
begin
write('x[',i,']=');
readln(x[i]);
if x[i]=0 then
begin
k:=k+1;
nom[k]:=i;
end;
end;
 
 
for h:=1 to n do
begin
for i:=1 to n do
begin
if (x[i]<>0) and (x[i+1]<>0) then
begin
if x[i]>x[i+1] then
begin
b:=x[i+1];
x[i+1]:=x[i];
x[i]:=b;
end;
end;
end;
end;
 
 
u:=0;
for j:=1 to k-1 do
begin
if ((nom[j+1]-nom[j])>1) then
begin
u:=u+1;
min[u]:=100;
for i:=nom[j]+1 to nom[j+1]-1 do
begin
if x[i]<min[u] then
begin
min[u]:=x[i];
nommin[u]:=i;
end;
end;
end;
end;
 
u:=0;
for j:=1 to k-1 do
begin
if ((nom[j+1]-nom[j])>1) then
begin
u:=u+1;
max[u]:=-100;
for i:=nom[j]+1 to nom[j+1]-1 do
begin
if x[i]>max[u] then
begin
max[u]:=x[i];
nommax[u]:=i;
end;
end;
end;
end;
 
for i:=1 to u-1 do
begin
for j:=1 to u-i do
begin
if min[j+1]<min[j] then
begin
b:=nommin[j];
nommin[j]:=nommin[j+1];
nommin[j+1]:=b;
p:=nommax[j];
nommax[j]:=nommax[j+1];
nommax[j+1]:=p;
end;
end;
end;
s:=1;
j:=1;
d:=1;
while d<=n do
begin
while ((d<nom[1]) or (d>nom[k]))  and (d<=n) do
begin
y[d]:=x[d];
d:=d+1;
end;
 
if s<=k-1 then
begin
y[d]:=0;
while ((nom[s+1]-nom[s])=1) do
begin
d:=d+1;
y[d]:=0;
s:=s+1;
end;
end;
 
if s<=k-1 then
begin
for f:=nommin[j] to nommax[j] do
begin
d:=d+1;
y[d]:=x[f];
end;
end;
 
d:=d+1;
j:=j+1;
s:=s+1;
end;
 
 
for d:=1 to n do
begin
write('y[',d,']=');
writeln(y[d]);
end;
end.

type mzap=record
                n:byte;//размер подмассива
                m:array [1..100] of integer;//сам подмассив
                min:integer;//его минимальный
                end;