var ran0: array[1..20] of string; {массив для ввода туда слов}
i,j,n:integer;
strk:string;
begin
n:=0;
for i:=1 to 20 do
begin
readln(ran0[i]); {вбиваем туда слова}
if ran0[i]='' then break; {тормозим цикл, если введена пустая строка}
inc(n);
ran0[i]:=ran0[i][2:]; {отбрасываем цифру с точкой}
end;
for i:=1 to n-1 do {выполняем сортировку}
for j:=1 to n-i do
if (ran0[j])>(ran0[j+1]) then
begin
strk:=ran0[j]; {сортируем массив}
ran0[j]:=ran0[j+1];
ran0[j+1]:=strk;
end;
for i:=1 to n do {выводим отсортированный массив}
write(ran0[i][2:],',');
end.
2) В 256 раз.
3) 120*50 = 6000*4 = 24000(Бит)/8 = 3000(Байт)/1000 = 3(КБайт)