[ALGORITMO] Operare con array e sottosequenze

[king64]

Mi scuso per le seguenti sviste

if   max>a[j] then   max:=a[j];

va sostituito con 

if   max<a[j] then   max:=a[j];

e

b[j]:=FALSE;

con

b[i]:=FALSE;