В текстовом файле заменить все цифры на римские

uses crt;
var
a:array [1..1000] of integer;
f:text;
i:integer;
begin
assign(f,'C:\1.txt');
reset(f);
i:=0;
while not eof(f) do begin
i:=i+1;
read(f,a[i]);
 
?

var
f:text;
new:text;
i,c:char;
begin
assign(f,'C:\1.txt');
assign(new,'C:\2.txt');
reset(f);
rewrite(new);
 
while not eof(f) do begin
readln(f,c);
 
 
if c='1' then write(new,'I') else
if c='2' then write(new,'II') else
if c='3' then write(new,'III') else
if c='4' then write(new,'IV') else
if c='5' then write(new,'V') else
if c='6' then write(new,'VI') else
if c='7' then write(new,'VII') else
if c='8' then write(new,'VIII') else
if c='9' then write(new,'IX') else
if c='10' then write(new,'X') else
write(new,c);
 
end;
 
close(f);
close(new);
end.

var s:string;
    c:char;
    i:integer;
...................
while not eof(f) do
 begin
  readln(f,s);
  for i:=length(s) downto 1 do
  if s[i] in ['1'..'9'] then
   begin
     c:=s[i];
     delete(s,i1);
     case c of
     '1':insert('I',s,i);
     '2':insert('II',s,i);
     '3':insert('III',s,i);
     '4':insert('IV',s,i);
     '5':insert('V',s,i);
     '6':insert('VI',s,i);
     '7':insert('VII',s,i);
     '8':insert('VIII',s,i);
     '9':insert('IX',s,i);//цифр больше нет, 10 не цифра
     end;
   end;
  writeln(new,s);
 end;

var s:string;
    c:char;
    i:integer;
    f,new:text;
begin
assign(f,'C:\1.txt');
assign(new,'C:\2.txt');
reset(f);
rewrite(new);
 
while not eof(f) do
 begin
  readln(f,s);
  for i:=length(s) downto 1 do
  if s[i] in ['1'..'9'] then
   begin
     c:=s[i];
     delete(s,i);    Вот тут <=================
     case c of
     '1':insert('I',s,i);
     '2':insert('II',s,i);
     '3':insert('III',s,i);
     '4':insert('IV',s,i);
     '5':insert('V',s,i);
     '6':insert('VI',s,i);
     '7':insert('VII',s,i);
     '8':insert('VIII',s,i);
     '9':insert('IX',s,i);
     end;
   end;
  writeln(new,s);
 end;
 close(f);
 close(new);
 end.

delete(s,i,1);