Không phận sự miễn vào.

program g;
uses crt;
var a: array [1..50] of integer;
i,n,m,j,k:integer;
begin
clrscr;
repeat;
write(' nhap so n vao : ');
readln(n);
write(' nhap so m vao (m < n) ');
readln(n);
until m < n;
for i:=1 to n do
begin
write(' nhap so phan tu', i , ' vao: ');
readln(a[i]);
end;
writeln(' day so ban nhap vao la: ',a[i]:4);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
k:=a[i];
a[i]:=a[j];
a[j]:=k;
end;
for i:=m+1 to n-1 do
for j:=i+1 to n do
if a[i] < a[j] then
begin
k:=a[i];
a[i]:=a[j];
a[j]:=k;
end;
writeln;
writeln(' Cac phan tu se duoc sap xep thep thu tu tu nho den lon nguoc lai ');
writeln(' So duoc sap xep la: ');
for i:=1 to n do write(a[i]:4);
readln;
end.