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

Для того, чтобы рассортировать данные слова в задачке по алфавиту, нам необходимо будет создать массив, где все они будут храниться.
Слов всего восемь, значит нам хватит размерности массива, равной восьми.
Тип его будет строковый, так как содержаться в нем будут целые слова:
slova_shar : array [1..8] of string;
Можем создать цикл от 1-го до восьми снутри которого будет запрос к юзеру на ввод слова:
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] gt; 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;