2 задачи на строки

[dsfmc]

1.Дана строка, содержащая числа, необходимо в следующую строку записать числа из первой по возрастанию.
2.Дана строка из слов необходимо переписать в следующую строку слова с повторяющимися буквами.

Помогите пожалуйста с решением...

З.Ы. если я правильно понимаю, то в первой нужно считать строку в массив, отсортировать (допустим пузырьком) и переписать в новую строку?

[Mad_Cat]

язык реализации какой?

слова с повторяющимися буквами.

например7

[dsfmc]

Сообщение от Mad_Cat

язык реализации какой?
например7

язык Pascal, а слова например (qweRRty,teSSt) две одинаковые подряд идущие буквы

[Mad_Cat]

1)

{t:boolean;snew:string;buf:char}
snew:='';
for i:=1 to length(s) do
if s[i] in['0'..'9] then snew:=snew+s[i];
t := true;
while t do begin
  t := false;
  for j = 1 to length(snew)-1:
   if snew[j] > snew [j+1] then
      begin
 buf:= snew[j];
 snew[j]:=snew[j+1];
snew[j+1]:=buf;
      t := true;
end;
end;

2)

 
{функция определяет есть 2 подряд идущие одинаковые буквы или нет}
function DoubleL(s:string):boolean;
var i:integer;
begin
for i:=1 to length(s)-1 do
if s[i] in ['a'..'z','A'..'Z'] then
if s[i]:=s[i+1] then
begin
 DoubleL:=true;
 exit;
end;
DoubleL:=false;
end;
{как разбить строку на слова go в поиск по форуму}