tạo một mảng gồm các số nguyên, viết chương trình xóa đi phần tử bé nhất

Program Hotboy;

Uses crt;

Var a:array[1..100] of longint;

i,min,n : integer;

Begin

Clrscr;

Write('nhap n');

Readln(n);

For i:=1 to n do 

Begin

write('A[',i,']'); 

Readln(A[i]);

End;

Min:=A[1];

For i:=1 to n do

If A[i] <Min then A[i] :=Min;

Dec(n);

For i:=1 to n do

A[i] :=A[i+1] ;

For i:=1 to n do

Write(A[i],'. ');

Readln

End.

Program BTT;
Uses crt;
Var A: array[1..10000] of longint;
    n,i,vt,min: longint;
Begin
        Clrscr;
        Write('Nhap so luong phan tu: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;
        min:=A[1]; vt:=1;
        For i:=2 to n do
                If A[i]<min then
                Begin
                        min:=A[i];
                        vt:=i;
                End;

        n:=n-1;
        For i:=vt to n do
                A[i]:=A[i+1];
        Write('Xoa phan tu be nhat: ');
        For i:=1 to n do Write(A[i],' ');
        Readln
End.