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

[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.

[medved777]

Вероятно, предполагается, что минимальная цифра одна.