Задача на обработку текста, 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;

[murphy]

volvo
Я показал это учителю

Код

  k:=0;
  for i:=1 to n do
   for j:=1 to length(s[i]) do
     begin
       k:=k+1;
       res[k]:=s[i][j];
     end;
     for j:=1 to l do
     for i:=1 to l-1 do
       if res[i]>res[i+1] then
           begin
             tmp:=res[i];
             res[i]:=res[i+1];
             res[i+1]:=tmp;
           end;


   writeln('Длина текста: ', l);
   writeln;
   writeln('Pезультиующий текст:');
   for i:=1 to k do
     write(res[i]);

по вашему алгоритму

так она на меня чуть не накричала и сказала что это почти самый сложный способ

Это САМЫЙ простой вариант

Хотя я прикинул и думаю что это простой способ. :yes:
Я не пойму что она от меня хочет

Помогите пожалуйста :molitva: если я вас не сильно достал :p2: :p2:

З.Ы. По моему денег хочет.