Ввести массив a1,. расположить ненулевые элементы по убыванию

Var mas:array[1..15] of integer;
    i,j,a:integer;
begin 
for i:=1 to 15 do read(mas[i]); //вводится через пробел
  for i:=1 to 14 do 
 for j:=i+1 to 15 do 
 begin   
if (mas[j]>mas[i]) then 
   begin   
   a:=mas[j];   
   mas[j]:=mas[i];   
  mas[i]:=a;   
  end; 
 end;
for i:=1 to 15 do write(mas[i],' '); //вывод
end.