10 random english alphabet uppercase letters in order

order_alphabet.pas

program order;

uses
  crt;

var
  a: array[1..10] of char;
  d:char;
  i,c,r: integer;

begin
  clrscr;
  randomize;
  for i := 1 to 10 do
    a[i] := Char(random(90-65)+65);
  for i := 1 to 9 do
    for c := i + 1 to 10 do
      if a[i] > a[c] then
      begin
        d := a[i];
        a[i] := a[c];
        a[c] := d;
      end;
  for i := 1 to 10 do
    write(a[i], ' ');
  readln;
end.