Дан массив а[-1; 0; 2; 4; -2].отсортировать по возрастанию(на паскале)в виде программы

uses crt; var i,j,max:byte; a: array [1..100] of integer; buf:integer; BEGIN repeat write(' 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]<a[j-1] then    begin     buf:=a[j];     a[j]:=a[j-1];     a[j-1]:=buf;     end;   for i:=1 to max do write(a[i]);    writeln;  write('the second sort : ');   for i:=max downto 1 do write(a[i],'  '); END.
С форума программистов , сортировка повсюду