разбиение числа Опции

[medved777]

Пожалуйста, помогите исправить программу. Очень прошу.
Условия задачи

Дано число. Удалить минимальную цифру

 program pract7_2;
const nm=100;
type tmasm=array[1..nm] of longint;
var i,col,k,n:byte; ch,p:longint; z,kol:tmasm;m:real;
procedure razb(ch:longint;var k:byte;var z:tmasm);
begin
k:=0;
while ch<>0 do begin
inc(k);
z[k]:=ch mod 10;
ch:=ch div 10;end;
end;
function min(n:byte;kol:tmasm):real;
var i:byte;mn,m:real;
begin
mn:=kol[1];
for i:=1 to n do
if kol[i]<mn then mn:=kol[i];
if kol[i]=mn then min:=mn;
m:=min(n,kol);
end;
begin
       writeln;
       writeln('vvedite chiclo');
       read(ch);
       razb(ch,col,z);
       k:=0;
       z[i]:=z[n-i+1];
       for i:=1 to col do
       if z[i]<>m  then begin inc(k);z[k]:=z[i];end;
       p:=z[k];
       case z[i] of
       0..9:p:=p*10+z[i];
       10..99:p:=p*100+z[i];
       end;
       writeln('preobrazovanoe chiclo:');
       writeln(p);
       end.

[klem4]

Что-то вспомнил я про эту задау, перед тем как запостить решение, смотрю, 1 в 1 как у Volvo Щас подумал и вот еще одно решение, с одним циклом, но только для чисел с одной минимальной цифрой

function _delete(const n: LongInt): LongInt;
var
  _result, temp, tenPower: LongInt;
  min: Byte;

begin

  temp := n; tenPower := 10;

  min := 255;

  while temp > 0 do begin

    if temp mod 10 < min then begin
      min := temp mod 10;
      _result := (n div tenPower) * tenPower div 10;
      if tenPower > 10 then
       _result := _result + n mod (tenPower div 10);
    end;

    temp := temp div 10; tenPower := tenPower * 10;
  end;

  _delete := _result;
end;