Пользователь вводит с клавиатуры несколько слов (количество определите сами). написать программу, которая выдает список этих слов, по алфавиту (для считайте, что все слова начинаются с разной буквы). паскаль 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.