nhập 1 dãy tìm số dương nhỏ nhất

uses crt;

var A : array [1 .. 100] of integer;

    i, N, M : integer;

begin

    clrscr;

    write('Nhap so phan tu = '); readln(N);

    write('Nhap day gom ', N, ' so : ');

    M := -1;

    for i := 1 to N do 

        begin

            read(A[i]);

            if A[i] > 0 then M := A[i];

        end;

    for i := 1 to N do

        if (A[i] > 0) and (A[i] < M) then M := A[i];

    if M <> -1 then write('So duong nho nhat: ', M)

    else write('Day khong có so duong');

    readln

end.