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

Uses crt;
Var

A:array[1..1000] of integer;
n,i,min: integer;
Begin

clrscr;
readln(n);

for i:=1 to n do
read(A[i]);
min:=A[1];

for i:=2 to n do

if a[i]<m then min:=a[i];
writeln(min);
readln;

uses crt;

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

i, n, min : integer;

begin

clrscr;

write('so luong phan tu trong day so : ');readln(n);

write('nhap so thu 1 : ');readln(a[1]);

min := a[1];

for i := 2 to n do

begin

write('nhap so thu ', i , ' : ');readln(a[i]);

if a[i] < min then min := a[i];

end;

writeln('so nho nhat : ', min );

readln

end.