Код: Выделить всё
uses crt;
const n=10;
var s1,s2:array[1..n] of string;
i,j:byte;
x,y:string;
begin
clrscr;
writeln('Введите ',n,' слов латинским алфавитом:');
for i:=1 to n do
begin
write('Слово ',i,' ');
readln(s1[i]);
end;
{создадим такой же массив, переведем все символы в верхний регистр}
for i:=1 to n do
begin
s2[i]:='';
for j:=1 to length(s1[i]) do
s2[i]:=s2[i]+Upcase(s1[i][j]);
end;
for i:=1 to n-1 do {сортируем пузырьком по возрастанию = по алфавиту}
for j:=1 to n-1 do
if (s2[j]>s2[j+1]) then
begin
x:=s1[j];s1[j]:=s1[j+1];s1[j+1]:=x;{переставляем слова в основном массиве}
y:=s2[j];s2[j]:=s2[j+1];s2[j+1]:=y;{и во вспомогательном}
end;
{выводим по алфавиту}
writeln('Слова по алфавиту:');
for i:=1 to n do
writeln(s1[i],' ');
readln
end.