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

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