Работа со строками в Excel

uses crt;
function Udal(n:longint):longint;{удаление 0 и 2}
var n1,n2:longint;
    c,k:integer;
begin
n1:=n;{запомним исходное число}
n2:=0;{новое число пока 0}
k:=1;{степень первой =1}
while n1>0 do{пока число не ноль}
 begin
  c:=n1 mod 10;{отделяем с конца по одной цифре}
  if(c<>0)and(c<>2)then{если это не 0 и не 2}
   begin
    n2:=n2+c*k;{умножаем цифру на очередную стапень 10 и прибавлем к тому, что получилось раньше}
    k:=k*10;{увеличиваем степень 10}
   end;
  n1:=n1 div 10;{берем число без последней цифры и все повторяем, пока число не кончится}
 end;
Udal:=n2;{значение функции}
end;
function KolRaz(n:longint):byte;{подсчет количества разных цифр}
var c,k:byte;
    m:set of byte;{множество цифр}
    n1:longint;
begin
n1:=n;{запомним число}
m:=[];{множество пока пустое}
k:=0;{разных пока нет}
while n1>0 do
 begin
  c:=n1 mod 10;
  if not (c in m) then{если цифры еще нет в множестве}
   begin
     k:=k+1;{считаем ее}
     include(m,c);{добавляем в множество}
   end;
  n1:=n1 div 10;
 end;
KolRaz:=k;
end;
var f,g:text;{2 текстовых файла}
    name_f,name_g:string;{их имена}
    a:longint;{числа в файле, не более 2 147 483 647}
begin
clrscr;
write('Введите имя исходного файла: ');
readln(name_f);{вводим только имя без расширения}
name_f:=name_f+'.txt';{добавляем расширение}
assign(f,name_f);
reset(f);{исходный открываем для чтения}
write('Введите имя выходного файла: ');
readln(name_g);
name_g:=name_g+'.txt';
assign(g,name_g);
rewrite(g);{выходной для записи}
while not eof(f)do{пока не конец файла}
 begin
  read(f,a);{читаем числа}
  write(Udal(a),'  ');{выводим на экран без 0 и 2}
  writeln(KolRaz(Udal(a)));{выводим на экран число разных цифр в них}
  writeln(g,KolRaz(Udal(a)));{это же в файл столбиком}
 end;
close(f);{закрываем файлы}
close(g);
write('Файл G записан!');
readln
end.