Не работает программа перевода арабских чисел в римские

procedure Form1.button1_Click(sender: Object; e: EventArgs);
const
 
RomeDigits: array [1..13] of string[2] =
('I', 'IV', 'V', 'IX', 'X', 'XL', 'L', 'XC', 'C', 'CD', 'D', 'CM', 'M');
 
ArabicNumbers: array [1..13] of integer =
(1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000);
var
arabic: integer; 
 
function ArabicToRome (n: integer): string;
var
i: integer;
res: string;
begin
res:='';
i:=13; 
while n>0 do begin
 
   while ArabicNumbers[i]>n do
   i:=i-1;
   res:=res+RomeDigits[i];
   n:=n-ArabicNumbers[i];
   end;
ArabicToRome := res;
 
end;
 
begin
textbox1.text:=inttostr(arabic);
textbox7.text:=(ArabicToRome(arabic));
end;

program Project1;
 
function ArabicToRome (n: integer): string;
{Функция для преобразования числа в арабской числовой нотации в
 римскую числовую нотацию. Ограничение на ввод значений n <= 3999}
const
  RomeDigits: array [1..13] of string[2] =
  ('I', 'IV', 'V', 'IX', 'X', 'XL', 'L', 'XC', 'C', 'CD', 'D', 'CM', 'M');
  ArabicNumbers: array [1..13] of integer =
  (1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000);
var
  i: integer;
  res: string;
begin
  res:='';
  i:=13;
  if n < 3999 then
    begin
      while n > 0 do
        begin
          while ArabicNumbers[i] > n do
            i:=i-1;
          res:=res+RomeDigits[i];
          n:=n-ArabicNumbers[i];
        end;
      ArabicToRome := res;
    end
   else
     ArabicToRome := 'number above conversion range';
 
end;
 
var
  arabic: integer;
 
begin
  Writeln('Введите число в арабской числовой нотации:');
  Readln(arabic);
  Writeln('Это же число в римской числовой нотации:');
  Writeln((ArabicToRome(arabic)));
  Readln;
end.