Массивы

[enji4ka]

Здравствуйте, и вновь прибегаю к вашей помощью. Задание следующее:
Создать функцию с массивом констант, который содержит названия месяцев: январь, февраль, март, апрель, май, июнь, июль, август, сентябрь, октябрь, ноябрь, декабрь. Функция полученное число( от 1 до 12) превращает в форму текста. Создать программу, которая выводит на экран дату как на компьютере,к примеру 8.марта 2011.год. Использовать процедуру GetDate.(Паскаль) Помогите пожалуйста. Я сделала одну часть задания, но вот сам вывод даты в нужной форме и использование процедуры GetDate у меня не получается.(Буду рада любой помощи и идеям.)

var d,m:integer;

function Mesjac(m:integer):String;
type MAS1=Array [1..12] of String;
const MEN:MAS1=('janvarj','fevralj','mart ','aprelj','maj','ijunj',
'ijulj','avgust','sentjabrj','oktja brj','nojabrj','dekadrj');
begin
Mesjac:=MEN[m];
end;

begin
Clrscr;
writeln('Programma vivodit datu:');
write('Vvedite denj(1-31): '); {ne uverena, chto eto nado}
readln(d);
write(Vvedite mesjac(1-12): ');
readln(m);

[enji4ka]

Помогите, пожалуйста!

[enji4ka]

Helppp!!!!