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

массив вводится с клавиатуры через пробел 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.