fecha en numeros a letras

programa que pasa una fecha en numeros a letras. ejemplo 2/1/2000 --> dos de enero del dos mill

program fecha;
uses crt;
var
b,c:string;
dia:array[1..31]of string;
mes:array[1..12]of string;
x,y,a:integer;
begin
clrscr;
repeat
writeln('ingrese un dia');
REadln(a);
writeln('ingrese un mes');
readln(y);
until
(a>0)and(a<=31)and(y>0)and(y<=12);
mes[1]:='enero';
mes[2]:='febrero';
mes[3]:='marzo';
mes[4]:='abril';
mes[5]:='mayo';
mes[6]:='junio';
mes[7]:='julio';
mes[8]:='agosto';
mes[9]:='septiembre';
mes[10]:='octubre';
mes[11]:='nobiembre';
mes[12]:='diciembre';
dia[1]:='primero';
dia[2]:='dos';
dia[3]:='tres';
dia[4]:='cuatro';
dia[5]:='cinco';
dia[6]:='seis';
dia[7]:='siete';
dia[8]:='ocho';
dia[9]:='nueve';
dia[10]:='diez';
dia[11]:='once';
dia[12]:='doce';
dia[13]:='trece';
dia[14]:='catorce';
dia[15]:='quince';
dia[16]:='dieciseis';
dia[17]:='diecisiete';
dia[18]:='dieciocho';
dia[19]:='diecinueve';
dia[20]:='veinte';
dia[21]:='veintiuno';
dia[22]:='veintidos';
dia[23]:='veintitres';
dia[24]:='veinticuatro';
dia[25]:='veinticinco';
dia[26]:='veintiseis';
dia[27]:='veintisiete';
dia[28]:='veintiocho';
dia[29]:='veintinueve';
dia[30]:='treinta';
dia[31]:='treinta y uno';
Write(dia[a],' de ',mes[y],' de dos mil once');
readkey;
end.