А то шас в голову ничего не лезит.
Дан текст (массив строк) сформировать текст в котором все одинаковые символы стоят рядом.
для одной строки я придумал короткий способ
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;