Не знаю как реалтзовать сортировку массива (Паскаль)

[WRNWRN]

Всем добрый вечер! Задача такая: дан массив размером N. В него вводится с клавиатуры случайная последовательность букв и числел, заканчивающаяся точкой). Программа должна отсортировать все числа,имеющиеся в строке по возрастанию. (использовать число столько раз, сколько раз оно повторяется в введенной строке, например:
для строки FG2D2D36V2 последовательность будет - 22236).Если чисел нет , то вывести -1, если все нули, то вывести 0! ПОСЛЕДОВАТЕЛЬНОСТЬ НЕ МОЖЕТ НАЧИНАТЬСЯ С 0!!!

[iBuTTHead]

перебираете строку по символьно.

for i:=1 to length(stroka) do
     if stroka[i] in '0'..'9' then
          {Добавить в массив.}

Затем делайте сортировку, сществует множество вариантов.

пример:

for i:=1 to {размер массива}-1 do
     for j:=1 to {размер массива} do
          if mass[i]>mass[j] then
                   {Поменять местами.}

Набор эл-тов не может начинаться с нулей - и куда их пихарить??

[WRNWRN]

Ничего не понял) Можно все одной программой?(в записи результата не должно быть незначащих нулей)

[iBuTTHead]

uses crt;
var
   stroka:string;
   mas:array [1..250] of integer;
   i,ii,j,code:integer;
   AllZero:Boolean;
begin
clrscr;
Write('Введите строку: ');
Readln(stroka);
j:=0;
for i:=1 to length(stroka) do
     if stroka[i] in ['0'..'9'] then{Если цифра}
        begin
             j:=j+1;{размерность массива}
             val(stroka[i],mas[j],code){из символа в цифру}
        end;
if j=0 then
    Write('-1');
else
begin
i:=0;
repeat
      i:=i+1;
      allzero:=mas[i]=0
until (i=j)or not allzero;{выход если конец или встретилась цифра отличная от 0}
if allzero then{если все нули}
   Write('0')
else{если не все нули}
    begin
    for i:=1 to j-1 do
        for ii:=i to j do
            if mas[i]>mas[ii] then
               begin{смена мест переменных в массиве}
                    mas[i]:=mas[i]+mas[ii];
                    mas[ii]:=mas[i]-mas[ii];
                    mas[i]:=mas[i]-mas[ii]
               end;
    for i:=1 to j do{вывод массива}
        Write(mas[i],' ')
    end
end;
readkey
end.

Как то так)). Но с нулями сами зделайте непонял честно...

[WRNWRN]

а как сделать, если нет цифр в строке те результат = -1?

[andrewpalkin]

Сообщение от WRNWRN

а как сделать, если нет цифр в строке те результат = -1?

Ты бы уже так и написал , что тебе надо всю программу и бесплатно

[WRNWRN]

Все! Сообразил сам!) Осталось поянть, что такое незначащие нули? Может у кого есть догадки как их убрать из ответа?

[iBuTTHead]

Ну уж если ты не знаешь что такое твои незначащие нули то и мы подавно.