В файле хранятся строки. Преобразовать строку, заменяя каждую цифру соответствующим ей числом пробелов

Program 1;
uses crt;
var f,g:text;
fname,k:string;
n,u,y:integer;
m:char;
begin
clrscr;
//открытие файла
writeln('Введите имя файла для чтения');
readln(fname);
assign(f,fname);
{$I-}
reset(f);
{$I+}
   if IOResult<> 0 then
   begin
   writeln('Файл не найден');
   readln;
   exit;
   end;
writeln('Введите имя файла для записи');
readln(fname);
assign(g,fname);
rewrite(g);
//чтение файла и преобразование строк
   while not eof(f) do
   begin
   readln(f,k);
      for u:=length(k) downto 1 do
      if k[u] in ['0'..'9'] then
      begin
      for y:=1 to ord(k[u])-ord('0') do
      insert(' ',k,u+1);
      delete(k,u,1);
      end;
   writeln(k);
   writeln(g,k);
   end;
close(f);
close(g);
readln;
end.

uses crt;
procedure read_file(var f:text);
var fname:string;
begin
//открытие файла
writeln('Введите имя файла для чтения');
readln(fname);
assign(f,fname);
{$I-}
reset(f);
{$I+}
if IOResult<> 0 then
 begin
  writeln('Файл не найден');
  readln;
  halt;
 end;
end;
procedure write_file(var f,g:text);
var fname,k:string;
    n,u,y:integer;
begin
writeln('Введите имя файла для записи');
readln(fname);
assign(g,fname);
rewrite(g);
//чтение файла и преобразование строк
while not eof(f) do
 begin
  readln(f,k);
  for u:=length(k) downto 1 do
  if k[u] in ['0'..'9'] then
   begin
    for y:=1 to ord(k[u])-ord('0') do
    insert(' ',k,u+1);
    delete(k,u,1);
   end;
  writeln(k);
  writeln(g,k);
 end;
close(f);
close(g);
end;
 
var f,g:text;
begin
clrscr;
read_file(f);
write_file(f,g);
readln;
end.

random(101)