Сортировка одномерного массива методом прямого выбора (минимального или максимального элемента)

type mas=array[1..100] of integer;
procedure swap(var a,b:integer);
var c:integer;
begin
c:=a;
a:=b;
b:=c;
end;
procedure massiv(var a:mas;var n:integer);
var i:integer;
begin
repeat
write('Введите размер массива от 10 до 100 n=');
readln(n);
until n in [10..100];
writeln('Исходный массив');
for i:=1 to n do
a[i]:=10+random(90);
end;
procedure print(a:mas;n:integer;s:string);
var i:integer;
begin
writeln(s);
for i:=1 to n do
write(a[i]:4);
writeln;
end;
procedure sort(var a:mas;n,k:integer);
var i,j,m:integer;
begin
for i:=1 to n-1 do
 begin
  m:=i;
  for j:=i+1 to n do
  if ((k=1)and(a[j]<a[m]))or((k=2)and(a[j]>a[m])) then m:=j;
  if ((a[m]<a[i])and(k=1))or((a[m]>a[i])and(k=2)) then  swap(a[i],a[m]);
 end;
end;
var a:mas;
    n,i,k:integer;
begin
randomize;
massiv(a,n);
print(a,n,'Исходный массив');
writeln('Направление сортировки');
writeln('1-по возрастанию');
writeln('2-по убыванию');
repeat
readln(k);
until k in [1,2];
sort(a,n,k);
print(a,n,'Отсортированный массив');
end.