Pascal ABC задача на одномерный массив #7

Ввести массив A(n). Если в массиве все элементы образуют
возрастающую последовательность, то уменьшить все элементы
вдвое, иначе – удвоить минимальный элемент (если его нет, то
выдать сообщение).

Вот что получилось у меня:Program qq;
Var A: array[1..20] of integer;
i,k,mini,min:integer;
Begin
k:=0;
min:=300;
mini:=0;
Randomize;
For i:=1 to 3 do
begin
A[i]:=Random(101); Write(A[i]:4);

If (A[i]<min) then
begin
min:=A[i];
mini:=i;
end;

If (A[i]<A[i+1]) then
k:=k+1;
end;
Writeln();

If (k=3) then
begin
Writeln('True',k);
For i:=1 to 3 do
begin
A[i]:=A[i] div 2 ;
Write(A[i]:4);
end;
end
Else
begin
Writeln('False',k);
Writeln('Minimus= ',min,' (#',mini,')',' | ',min,'*2= ',min*2);
end;
end.