Функции, текстовые файлы, таблички.

[meta]

Разработать функцию, которая из заданного беззнакового целого числа формирует новое число путем изменения каждой цифры на соответствующую меньшую. Параметр функции - число, цифры которого надо уменьшить. Есть текстовый файл (его нужно предварительно создать средствами одного из текстовых редакторов), в котором записана последовательность натуральных чисел. На основе разработанной функции поменять цифры каждого из этих чисел. Результат напечатать в форме таблицы.

Помогите написать функцию. и как выводить результаты в виде таблички?

[GetMax]

Помогите написать функцию

Примерно так

Function Preobrazovat(Ch:LongInt):String;
Var
  Min:Char;
  Buf_ch:LongInt;
  Vichet:0..9;
  Umensh:0..9;
  Buf_st,buf_st2:String;
  Code:Integer;
  St:String;
  i:byte;
Begin
  Buf_ch:=Ch;
  Str(Buf_ch,St);
  Min:='9';
  Buf_st:='';
  For i:=1 to Length(St) do
  If St[i] < Min then Min:=st[i];
  Val(Min,Vichet,Code);
  For i:=1 to Length(St) do
  Begin
    Val(St[i],Umensh,Code);
    Umensh:=Umensh-Vichet;
    Str(Umensh,Buf_st2);
    Buf_st:=Buf_st+Buf_st2
  End;
  Preobrazovat:=Buf_st
End;