program bai_giai;
uses crt;
var A:array[1..10] of integer;
    n,i,j:byte;
    tg:integer;
begin
    clrscr;
    n:=10;
    for i:=1 to n do read(A[i]);
    for i:=1 to n-1 do
        for j:=i+1 to n do
            if A[i]>A[j] then
                begin
                    tg:=A[i]; A[i]:=A[j]; A[j]:=tg;
                end;
    writeln('So lon nhat la: ',A[n]);
    write('Day tang dan la: ');
    for i:=1 to n do write(A[i],' ');
    readln; readln;
end.

Ta không cần phải tìm max vì khi sắp xếp dãy tăng dần thì số lớn nhất sẽ là số đứng cuối cùng. Làm như vậy sẽ giảm bớt một vòng lặp, giảm bớt thời gian chạy của chương trình.

uses crt,math;
var a:array[0..10000007] of longint;
    i,j,tam,n,ma:longint;
begin
clrscr;
n := 10;
ma :=-maxlongint;
for i := 1 to n do
 begin
    read(a[i]);
    ma:=max(ma,a[i]);
 end;
for i := 1 to n - 1 do
 for j := i + 1 to n do
    if a[i] > a[j] then
    begin
       tam := a[i];
       a[i] := a[j];
       a[j] := tam;
    end;
writeln('Max cua day = ',ma);
write('Day tang dan: ');
for i := 1 to n do
write(a[i],#32);
readln;readln;
end.