интервал+ изменение. массив. как вывести на печать?

[ayPinki]

Program massive;
Var r,buffer,j,imax,i,n,k,max,b:integer ;
l:boolean;
A,az : array [1..500] of integer;
begin
cls;
writeLn('Ââåäèòå ðàçìåðíîñòü ìàññèâà =');
readLn(n);
for I:=1 to n do
begin Write('A[',I:2,']=');
Readln(A[I])
End;
For k:=1 to n do
if a[k]>max then
begin
max:=a[k]; i:=k;
end;
writeln('Ìàêñèìàëüíûé ýëåìåíò ìàññèâà A[',i,']=',max);
for i:=i+1 to n do
az[I]:=a[I];
for i:=1 to n do
for j:=i to n do Begin
If az[i]>az[j] Then Begin
Buffer:=az[j];
aZ[j]:=az[i];
aZ[i]:=Buffer;
End;
End;
WriteLn ('Óïîðÿäî÷åí ïî âîçðàñòàíèþ:');
for I:=1 to n Do Begin
Write (az[I]:4,' ');
end;
end.
выводит какие то лишние нули посреди отсортированного массива. не могу от них избавится
вот, как теперь вывести половину( старую, до максимума которая) + отсортированную после максимума?

[IT-man]

Program massive;
Var c,j,imax,i,n:integer ;
A : array [1..90] of integer;
begin
cls;
writeLn('n =');
readLn(n);
for I:=1 to n do
begin
Write('A[',I:2,']=');
Readln(A[I])
End;
imax:=1;
For i:=1 to n do  begin
if a[i]>a[imax] then
 imax:=i;
Write (a[i]:4,' ');end;
writeln;
writeln('MAx= A[',imax,'] = ',a[imax]);
     for i:=imax+1 to n do
         for j:=i to n do Begin
             If a[i]>a[j] Then Begin
                c:=a[j];
                a[j]:=a[i];
                a[i]:=c;
             End;
         End;
WriteLn ('Отсортировано:');
for i:=1 to n Do Begin
Write (a[i]:4,' ');
end;
end.

результат :

8 6 1 1 3 1 7 4
MAx= A[1]=8
Отсортировано:
8 1 1 1 3 4 6 7

[ayPinki]

аа, спс It-man, плюсую в кармочку
буду разбираться>__<
извините, остался последний вопрос... правельно ли я понял " вывести на печать" это послать на принтер, или просто всмысле вывести на экран?