Дана строка,избрать из нее все числа и упорядочить по возрастанию.(паскаль АВС)

program zz1;
var s:string; // задаем переменную строкового типа
i, m, k, j, id_max, max:integer; // задаем переменные целого типа
mas:array[1..255] of integer;
begin
write( введите строчку );
read(s); // вводим с клавиатуры строку
m:=1;
for i:=1 to length(s) do // организуем цикл, в котором переберем все знаки от первого до заключительного
if (s[i] = 0) or (s[i] = 1) or (s[i] = 2) or (s[i] = 3) or (s[i] = 4) or (s[i] = 5) or //проверяем, если знак строчки цифра, то
(s[i] = 6) or (s[i] = 7) or (s[i] = 8) or (s[i] = 9)
then begin k:=strtoint(s[i]);mas[m]:=k;m:=m+1;end; // переводим знак в число и записываем его в массив
// сортируем массив
j := m-1;
while j gt; 1 do begin
max := mas[1];
id_max := 1;
for i := 2 to j do
if mas[i] gt; max then begin
max := mas[i];
id_max := i
end;
mas[id_max] := mas[j];
mas[j] := max;
j := j - 1
end;
for i:=1 to m-1 do
write( mas[i], ); // выводим ответ
end.