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

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

[volvo]

Я бы делал без перевода в строку... Если дано число - работаем с числом:

function min(X: integer): integer;
var T: integer;
begin
  if X < 10 then min := X
  else begin

    T := min(X div 10);

    if X mod 10  < T then min := X mod 10
    else min := T;

  end;
end;

function delete_digit(X, digit: integer): integer;
var T, ten: integer;
begin
  T := 0; ten := 1;
  while X > 0 do begin

    if X mod 10 <> digit then begin
      T := T + ten * (X mod 10);
      ten := ten * 10;
    end;

    X := X div 10;

  end;
  delete_digit := T;
end;

var
  X: integer;
begin
  write('X = '); readln(X);
  writeln('result = ', delete_digit(X, min(X)));
end.

(убирает как одну, так и несколько минимальных цифр)...