Написать программу, которая сортирует массив методом выбора, состоящий из случайных заглавных латинских букв- Pascal(Паскаль)

const k=10;
var a:array [1..k] of char;
    i,j:byte;
    term:char;
    max:byte;
  begin
  randomize;
   writeln('Neotsortirovanii massiv');
   for i:=1 to k do
    begin
     a[i]:=chr(random(26)+65);
     writeln(a[i]:3);
    end;
    writeln('Sortirovka massiva');
    for i:=1 to k-1 do
     begin
      max:=i;
      for j:=i+1 to k do if ord(a[j]) < ord(a[max]) then max:=j;
       term:=a[i];
       a[i]:=a[max];
       a[max]:=term;
    end;
    for i:=1 to k do write(a[i]:3);
    readln;
  end.