С датчика случайных чисел заполнить массив alfavit [0..15] прописными латинскими буквами. Затем массив отсортировать в алфавитном порядке

Program Simvol1;
Uses crt;
Var Alfavit: array[1..15] of char;
    s: char; i,j: integer;
Begin
   ClrScr;
   randomize; {Заполнение массива случайными буквами}
    Writeln('Исходный массив');
   For i:=1 to 15 do
   begin
      Alfavit[i]:= chr(random(26)+ ord('A'));
      Write( Alfavit[i]:3)
   end;

Writeln;
{Сортировка метод пузырька}
   For i:=1 to 15 do
      for j:=1 to 15-i do
        if Alfavit[j]>Alfavit[j+1] then
          begin
            S:=Alfavit[j];    
            Alfavit[j]:=Alfavit[j+1];      
            Alfavit[j+1]:=s
          end;
   Writeln('Отсортированный массив');
   For i:=1 to 15 do write (Alfavit[i]:3);
   Readkey
End.