Строка: Вывести сначала цифры, а потом буквы

var
i,j:Integer;
SetOfGlas, SetOfSoglas: Set of Char;
s,StringOfGlas,StringOfNumb : String;
begin
 
StringOfNumb := '0123456789';
StringOfGlas := 'aeiouy';
SetOfGlas := ['a','e','i','o','u','y'];
SetOfSoglas := ['a'..'z'] - SetOfGlas;
 
write('строка=');
readln(s);
 
//1:сначала цифры потом буквы
writeln('сначала цифры, потом буквы');
for i := 1 to length(s) do if s[i] in ['0'..'9'] then write(s[i]);
writeln;
for i := 1 to length(s) do if s[i] in ['a'..'z'] then write(s[i]);
writeln;writeln;
 
//2:цифры по возрастанию потом буквы
writeln('сначала цифры по возрастанию, потом буквы');
for j := 1 to 10 do
    for i := 1 to length(s) do
        if s[i] = StringOfNumb[j] then write(s[i]);
writeln;
for i := 1 to length(s) do if s[i] in ['a'..'z'] then write(s[i]);
writeln;writeln;
 
//3: сначала цифры по возрастанию потом гласные буквы потом остальные буквы
writeln('сначала цифры по возрастанию, потом гласные буквы, потом остальные буквы');
for j := 1 to 10 do
    for i := 1 to length(s) do
        if s[i] = StringOfNumb[j] then write(s[i]);
writeln;
for i := 1 to length(s) do if s[i] in SetOfGlas then write(s[i]);
writeln;
for i := 1 to length(s) do if s[i] in SetOfSoglas then write(s[i]);
writeln;writeln;
 
//4:сначала цифры по возрастанию потом гласные буквы по возрастанию(ASCII) потом остальные буквы
writeln('сначала цифры по возрастанию, потом гласные буквы по возрастанию(ASCII), потом остальные буквы');
for j := 1 to 10 do
    for i := 1 to length(s) do
        if s[i] = StringOfNumb[j] then write(s[i]);
writeln;
for j := 1 to 10 do
    for i := 1 to length(s) do
        if s[i] = StringOfGlas[j] then write(s[i]);
writeln;
for i := 1 to length(s) do if s[i] in SetOfSoglas then write(s[i]);
 
 
readln;
end.