Viết chương trình pascal nhập vào n số nguyên từ bàn phím, tìm số nhỏ nhất trong dãy số vừa nhập no copy

uses crt;
Var a:array[1..100000] of longint;
i,n,min:longint;
Begin
clrscr;
write('Nhap n: '); readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = '); Readln(A[i]);
end;
for i:=1 to n do
if a[i]<min then min:=a[i];
write('Gia tri nho nhat trong day so vua nhap la: ',min);
readln
end. no copy  5p trời

Uses crt;
Var
    a:array[1..1000] of integer;
    n,i,m: integer;
Begin
    clrscr;
    readln(n);
    for i:=1 to n do
        read(a[i]);
    m:=a[1];
    for i:=2 to n do
        if a[i]<m then m:=a[i];
    writeln(m);
    readln;
End.