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

//Pascal ABC.NET v3.0 сборка 1111var 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.