viết chương trình pascal 1 ) tìm số nhỏ nhất 2) Tìm số âm ( nhỏ hơn 0) Giúp mình với mai mk kiểm tra rồi cảm ơn

program bai_giai;
uses crt;
var A:array[1..10000] of integer;
    n,i,nn:integer;
begin
    clrscr;
    readln(n);
    for i:=1 to n do read(A[i]);
    nn:=A[1];
    for i:=2 to n do
        if A[i]<nn then nn:=A[i];
    writeln(nn);
    for i:=1 to n do
        if A[i]<0 then write(A[i],' ');
    readln;
end.

Program qtruong;
Uses crt;
Var n, i, min, so_am: integer;

      A: array[1..1000] of 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:=2 to n do if min>A[i] then min:=A[i];
So_am:=0;
For i:=1 to n do if A[i]<0 then inc(so_am);
Writeln('So nho nhat la: ',min);
Writeln('Co tat ca ',so_am,' so am');
Readln
End.