Сортировка строк(Паскаль)

[VictorM]

C_O_D_E, не обижайтесь. Вы умная и IMHO способная девушка. Но знаете, есть особый шик - написать программу с меньшим количеством строк кода. И здесь Хыиуду прав. "Краткость - сестра таланта" это и о программистах

[C_O_D_E]

Но знаете, есть особый шик - написать программу с меньшим количеством строк кода.

Знаю, даже соревнования как-то проводили. обычно следую. Но надо же бедному студенту иногда отрываться!! Мне стоит переделать код данной программы?

[VictorM]

"Бедному студенту" отрываться надо. И даже не иногда, а регулярно. Иначе крыша поедет.
А код, что код - пусть будет как есть. Как говорили мне когда-то: "Работает - не лезь. Пусть работает". Просто по истечении некоторого времени смотришь на свои "творения" по-другому. Как на рисунки из детства.

[manger32]

Вот вариант, который прост и учитывает все требования задачи.
var
tmp,s, s0: string;
i, k, j: integer;
a: array[1..100] of string;
begin
writeln('Введите количество строк');
readln(k);
for i:=1 to k do
begin
writeln('Введите ',k,'-ое слово');
readln(a[k]);
end;
for j := 1 to k - 1 do
for i := 1 to k - j do
if a > a[i + 1] then
begin
tmp:=a[i+1];
a[i + 1]:=a
a:=tmp;
end;
{Вывод - каждое слово через пробел (может быть и любой другой вариант вывода)}
for i := 1 to k do
if i<>k then
s0 := s0 + a + ' '
else
s0 := s0 + a;
writeln(s0);
end.