Шарик шарада шакал шарф шалун шарнир шайба шариковой написать в словарном порядке

Для того, чтобы рассортировать данные слова в задаче по алфавиту, нам нужно будет создать массив, где все они будут храниться.

Слов всего восемь, значит нам хватит размерности массива, равной восьми.

Тип его будет строковый, поскольку содержаться в нем будут целые слова:

slova_shar : array [1 ... 8] of string;

Можем создать цикл от одного до восьми внутри которого будет запрос к пользователю на ввод слова:

for i:integer : =1 to 8 do

readln (slova_shar[i]);

t_s_shar : = '';

Начинаем сортировку:

for i:integer : =1 to 7 do

if (slova_shar[i] > slova_shar[i + 1]) then

begin

t_s_shar : = slova_shar[i];

slova_shar[i] : = slova_shar[i + 1];

slova_shar[I + 1] : = t_s_shar;

end;