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

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 > 1 do begin

max : = mas[1];

id_max : = 1;

for i : = 2 to j do

if mas[i] > 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.