Список фамилий, разделенных запятыми, записан в строке в произвольном порядке. Упорядочить его по алфавиту и записать в ту же строку — Pascal(Паскаль)

var
a,t:string;
b:array[1..100]of string;
i,j,k:integer;
begin
writeln('vvedite stroku');
readln(a);
a:=','+a;
for i:=1 to length(a)do
if a[i]=','then inc(k) else b[k]:=b[k]+a[i];
for i:=1 to k do
for j:=2 to k do
if b[j]<b[j-1] then begin
t:=b[j];
b[j]:=b[j-1];
b[j-1]:=t;
end;
a:='';
for i:=1 to k do
a:=a+b[i]+',';
delete(a,length(a),1);
writeln(a);
readln;
end.