Линейный массив записать случайным образом латинскими буквами. Упорядочить его по алфавиту методом пузырька- Pascal(Паскаль)

const n=20;
var a:array[1..n]of char;
    i:byte; c:char;
    f:boolean;
begin
randomize;
for i:=1 to n do
begin
   a[i]:=chr(random(26)+65);
   write(a[i]:2);
end;
writeln;
writeln('Результат сортировки:');
repeat
f:=true;
for i:=1 to n-1 do
if a[i]>a[i+1] then
begin
   c:=a[i];
   a[i]:=a[i+1];
   a[i+1]:=c;
   f:=false;
end;
until f;
for i:=1 to n do
write(a[i]:2);
readln;
end.