Pascal/Turbo Pascal - PROGRAMA QUE CONVIERTE ARABIGOS A ROMANOS EN TURBO PASCAL

Hola, solo quiero saber si alguien tiene el codigo en Turbo Pascal 7 para convertir numeros arabigos a romanos, porfavor me urge. Es para una tarea. Gracias.

{Esto te vale}

program arabigos;
uses
crt;
type
string5 = string[5];

const
romanos : array[1..20] of string[5] = (
'I','II','III','IV','V','VI','VII','VIII','IX','X',
'XI','XII','XIII','XIV','XV','XVI','XVII','XVIII','XIX','XX');

var
tecla : char;
numero : integer;

function conversion(num : integer) : string5;
begin
if num in[1..20] then
conversion := romanos[num];
end;

begin
clrscr;
writeln('Entre numero Arabigo : ');
readln(numero);
writeln;
writeln(conversion(numero));
repeat until keypressed;
end.