Сортировка

[Pasha_Sh]

Дана строка с 8-ю числам, необходимо их сортировать их так, как показано в примере ниже:
Строка: 12 23 34 67 56 45 78
Вывод: 12345678

[Stilet]

var a:array['1'..'9'] of boolean;s:string;i:integer;c:char;
begin
 s:='12 23 34 67 56 45 78';
 for i:=1 to length(s) do a[s[i]]:=true;
 for c:='1' to '9' do if a[c]=true then write(c);
 readln;
end.

Подходит?

[Mad_Cat]

а так?

var c:char;s:string;
begin
s:='12 23 34 67 56 45 78';
for c:='1' to '9' do
if pos(c,s)<>0 then write(c);
end.