Напишите, пожалуйста, программу на паскале (динамические массивы). С клавиатуры вводятся натуральные числа, ввод заканчивается числом 0. Нужно вывести на экран эти числа в порядке возрастания.

//Pascal ABC.NET v3.0 сборка 1111
var
 ar:array of integer;
 n:integer;
begin
 n:=0;
 setlength(ar,n+1);
 readln(ar[n]);
 while ar[n]0 do
  begin
   inc(n);
   setlength(ar,n+1);
   readln(ar[n]);
  end;
 sort(ar);
 ar.Print( );
end.