Строки: упорядочить буквы a, b, c в определенном порядке

var a,b,c,i:integer;
    z:char;
begin
  while not eoln do begin
    read(z);
    if z='a' then inc(a) else if z='b' then inc(b) else inc(c);
  end;
  for i:=1 to c do write('c');
  for i:=1 to a do write('a');
  for i:=1 to b do write('b');
end.

var
  s:string;
begin
  s:=ReadlnString('Введите строку:');
  s:=string.Join('',Range(1,s.Count(c->c='c')).Select(i->'c')+Range(1,s.Count(c->c='a')).Select(i->'a')+Range(1,s.Count(c->c='b')).Select(i->'b'));
  writeln('Полученная строка:',s);
end.

begin
  var s := 'acbac';
  s := s.OrderBy(ch -> ch = 'a' ? 2 : ch = 'b' ? 3 : 1).JoinIntoString('');
  writeln('Результат: ', s);
end.

var 
  s:string;
  a,b,c,i:integer;
begin
  write('введите строку:');
  readln(s);
  for i:=1 to length(s) do 
    if s[i]='a' then a:=a+1 else if s[i]='b' then b:=b+1 else c:=c+1;
  s:='';
  for i:=1 to c do s:=s+'c';
  for i:=1 to a do s:=s+'a';
  for i:=1 to b do s:=s+'b';
  writeln('S=',s);
end.