Задача на обработку текста, Cформировать текст, в котором... Опции

[murphy]

Помогите пожалуйста написать програмку.
А то шас в голову ничего не лезит.

Дан текст (массив строк) сформировать текст в котором все одинаковые символы стоят рядом.

для одной строки я придумал короткий способ

Код

for i:=2 to l-1 do
     for j:=i+1 to l do
        if s[i-1]=s[j] then
           begin
             tmp:=s[i];
             s[i]:=s[j];
             s[j]:=tmp;
           end;

А для текста только большой тупой вариант в голове крутится.
Его даже писать не хочется.

:p2:

И еще может покритикуете ввод текста

Код

function readtx(var str:tx):byte;
 var i:byte;
     len: word;
     key:char;
 begin
   len:=0;i:=0;

    writeln('Please enter some text');
    writeln(' > pressing Esc will clear line');
    writeln(' > pressing Esc at the begining');
    writeln('   of new line will end the entering.');
    repeat

       i:=i+1;
       readln(str[i]);
      key:=readkey;
   until key=#27;
   readtx:=i;
 end;

[volvo]

murphy
Хочешь еще один алгоритм?

Код

var
 cnt: array[char] of integer;
 s: string;
 i: integer;
 ch: char;
begin
 s := 'sdj;alskjdf;laskjdf;laksjd;lkjf;lsdk;gjlskd;jgskgf';
 for i := 1 to length(s) do
   inc(cnt[s[i]]);
 for ch := #32 to #255 do
   for i := 1 to cnt[ch] do write(ch);
end.

Я думаю, переделать его для массива строк не составит труда :D