Лёлька22 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]<a[j-1] then   begin    buf:=a[j];    a[j]:=a[j-1];    a[j-1]:=buf;    end; for i:=1 to max dowrite(a[i]);  writeln; write('the second sort : '); for i:=max downto 1 dowrite(a[i],'  ');END.
С форума программистов , сортировка повсюду