viết chương trình tìm số lớn nhất trong dãy chữ số viết chương trình tìm số nhỏ nhất trong dãy chữ số

-CT tìm số lớn nhất:

program oken;
uses crt;
var a: array [1..1000] of integer;
    i,n,max: integer;
begin   
    clrscr;
    write('Nhap so phan tu cua mang: '); readln(n);
    for i:=1 to n do 
        begin
            write('a[',i,']: '); 
            readln(a[i]);
        end;
    max:=a[1];
    for i:=2 to n do
        if max<a[i] then
            max:=a[i];
    writeln('So lon nhat trong day so: ',max);
    readln;
end.

-CT tìm số nhỏ nhất:

program oken;
uses crt;
var a: array [1..1000] of integer;
    i,n,min: integer;
begin   
    clrscr;
    write('Nhap so phan tu cua mang: '); readln(n);
    for i:=1 to n do 
        begin
            write('a[',i,']: '); 
            readln(a[i]);
        end;
    min:=a[1];
    for i:=2 to n do
        if min>a[i] then
            min:=a[i];
    writeln('So be nhat trong day so: ',min);
    readln;
end.