[pascal]вычеркивание минимальный цифр из числа

[decantnik]

Вообщем вот такая задача..
Дано число N, нужно убрать 2 минимальных числа

Например
Дано
231
Вывод
3
Дано 42314
Вывод 434

[Sazary]

Разбиваете число на массив цифр. Ищете два минимальных, запоминаете их индексы (или сами числа). Потом выводите элементы массива, кроме тех двух.

Еще не ясно, что делать, если число, скажем, такое:
45211132

[decantnik]

спасибо
если число 45211132 то надо вычеркнуть первое слева минимальное число т.е 452132

[Plague]

С помощью строк вот сделал, не отлаживал:

var s:string;
    k,i,l:integer;
begin
  readln(s);
  k:=0;
  i:=0;
  repeat
    l:=pos(chr(i+48),s);
    if l>0 then 
      begin
        delete(s,l,1);
        k:=k+1;
      end
    else i:=i+1;
    if k=2 then break;     
  until i>9;
  writeln(s);
end.

[decantnik]

благодарю! ) задача решена )) БОЛЬШОЕ СПАСИБО !))