Tìm giá trị lớn nhất trong dãy và vị trí nhỏ nhất của giá trị đó

PROGRAM Tim_gia_tri;
VAR A:ARRAY[1..100] OF INTEGER;
dem,i,j,n:BYTE; min:INTEGER;
BEGIN
REPEAT
Write('Nhap so phan tu cua day ');Readln(n);
UNTIL (n>=1);
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];
dem:=0;
FOR i:=1 TO n DO
IF (a[i]=min) THEN dem:=dem+1;
Write('Vay gia tri nho nhat cua day la ',min);
Write('Gom co ',dem,' gia tri nhu vay trong day');
Readln;
END.