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

Массив вводится с клавиатуры через пробел 15 элементов
var
a:array[1..15]of integer;
i,j,buf:integer;
begin
    for i:=1 to 15 do
        read(a[i]);
     for i:=1 to 14 do
         for j:=i+1 to 15 do
                if (a[i]<>0)and(a[j]<>0) then
                   if a[i]>a[j]then
                      begin
                             buf:=a[i];
                             a[i]:=a[j];
                             a[j]:=buf;
                      end;
writeln;
   for i:=1 to 15 do
       write(a[i]:4);
end.