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

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

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