Дан массив а[-1;0;2;4;-2].Отсортировать по возрастанию(на ПАСКАЛЕ)в виде ПРОГРАММЫ

uses crt;vari,j,max:byte;a: array [1..100] of integer;buf:integer;BEGINrepeatwrite( input number of elements );readln(max);until max in [1..100];  writeln(input your demention); for i:=1 to max do begin  write(input a[, i, ] = );   readln(a[i]);  end;  buf:=0;  write(the first sort: ); for i:=max downto 1 do for j:=2 to i do  if a[j].
С форума программистов , сортировка повсюду