Найти индекс минимального элемента массива - PascalABC.NET

Program Analiz_sortirovok;{Программа выполняет сортировку массивов разными способами}
uses crt;
const
N=5;
Type
Ar=array of integer;
Var
Arvozr,Arub,Arrandom:Ar;
i:integer;
 
Procedure BuildAr;{Заполняет 3 массива с максимальной длинной с заданными условиями}
var 
i : integer; 
begin
for i := 0 to N do 
begin
Arvozr[i] := i;
Arub[i] := N-i;
Arrandom[i]:=Random(N);
end;
end;
 
procedure swap(var x,y: integer);{Меняем местами заданные элементы массива}
var t: integer;
begin
t := x;
x := y;
y := t
end;
 
procedure FindMin(startindex:integer;M:ar;var lowindex: integer);{Перебирает массив начиная с заданного индекса и находим минимальный элемент}
var min,u:integer;
begin
lowindex:= startindex;
min := M[startindex];
for u:=startindex+1 to N do
if M[u]< min then
begin
min := M[u];
lowindex:= u;
end
end;
 
procedure Pryamoi_vibor(M:ar);
var
j:integer;
begin
for j:=0 to N do
begin 
FindMin(j,m,i);
swap(M[j],M[i]);
end
end;
 
begin
SetLength(Arvozr,N);
SetLength(Arub,N);
SetLength(Arrandom,N);
Buildar;
Pryamoi_vibor(Arrandom);
Writeln(Arrandom);
 
end.