Сортировка прямого выбора!

[sir.andrey]

Задача:Отсортировать случайный массив с помощью сортировки прямого выбора!
P.S. Создать случайный массив и отсортировать его в подпрограмме прямого доступа!

Дело ясное, что я неправильно засовываю массив в подпрограмму,
подскажите как исправить!

program COPTUPOBKA;
var a:array [1..10] of integer; x,z,k,min,i,j:integer;
procedure pv (a:array of integer);
var z,k,i,j,min,x:integer;
begin
z:=0;
k:=0;
for i:=1 to 10 do begin
                  if i=10 then break;
                  min:=a[i];
                  for j:=i+1 to 10 do begin
                                    if a[j]<min then begin
                                                     min:=a[j];
                                                     z:=j;
                                                     end;
                                    if min=a[i] then z:=i;
                                    end;
                  x:=a[z];
                  a[z]:=a[i];
                  a[i]:=x;
                  end;
for i:=1 to 10 do write (a[i],' ');
readln;
end;
begin
writeln ('sdfgsdf');
randomize;
for i:=1 to 10 do begin
                  a[i]:=random(10);
                  write (a[i],' ');
                  end;
pv (a[i]);
end.