[icWasya]

Ну Вы объяаляете двумерный массив,

Код:

type myarray=array of array of integer;

а работаете как с одномерным
(22)if A[j]>m Then
(25) k:=j; m:=A[j]
(28) A[k]:=A[i]; A[i]:=m;
На что компилятор Вам и указывает

И что в этом коде делает процедура Init?