Пользователь вводит с клавиатуры несколько английских слов (количество определите сами). Написать программу, которая выдает список этих слов, упорядоченных по алфавиту (для упрощения задачи считайте, что все слова начинаются с разной буквы). Паскаль abc.Помогите пожалуйста.

Var a:array[1..100] of string;
n:string;
i,m,j:integer;
begin
writeln (Введи кол-во слов);
readln(m);
for i:=1 to m do
 begin
 readln (n);
 a[i]:=n;
 end;
for j:=1 to m do
for i:=1 to m-1 do
if a[i]>a[i+1] then
begin
n:=a[i];
a[i]:=a[i+1];
a[i+1]:=n;
end;
writeln;
for i:=1 to m do
writeln (a[i]);
end.