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

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