Изменить порядок следования цифр в строке - Pascal

Формулировка задачи:

Строка состоит только из цифр, нужно сделать(без перестановки) так, чтобы сначала шли двойки, потом нули, потом единицы Например строка 001212002 станет 222000011

Решение задачи: «Изменить порядок следования цифр в строке»

Листинг программы

const a: String[3] = '201';
var s: String; i, j: Integer;
begin
  ReadLn(s);
  for i:=1 to Length(a) do for j:=1 to Length(s) do if a[i]=s[j] then Write(a[i]); WriteLn;
end.

Объяснение кода листинга программы

Объявляется константа a типа String, ей присваивается значение 201.
Объявляются переменные s типа String, i и j типа Integer.
Считывается строка с клавиатуры и записывается в переменную s.
Запускается цикл: для каждого символа из строки a и для каждого символа из строки s происходит проверка, совпадает ли символ из строки a с символом из строки s. Если совпадение найдено, то этот символ выводится на экран с помощью процедуры Write.
Производится переход на новую строку с помощью процедуры WriteLn. Вызов процедуры Write печатает символы 2 и 1, которые есть в обеих строках. Вызов процедуры WriteLn гарантирует, что вывод будет переведен на новую строку после выполнения всех операций вложенных циклов.