Помогите с программой по языку Pascal, задание на записи (комбинированный тип переменной).

250р и прога твоя. Если согласен, то отпиши в комментарий.

0р и прога твоя. Тести)))
Const massLength = 100;
type Date = record
day: integer;
month: string;
end;
Mass = array [1..massLength] of Date;
var residual, i, j: integer;
ourMass: Mass;
currentMonth: string;
begin
residual := 99;
ourMass[1].day := 8;
ourMass[1].month := 'Январь';
ourMass[2].day := 7;
ourMass[2].month := 'Январь';
ourMass[3].day := 13;
ourMass[3].month := 'июлЬ';
ourMass[4].day := 4;
ourMass[4].month := 'НоЯбРь';
for i := 1 to massLength do
begin
currentMonth := '';
for j := 1 to Length(ourMass[i].month) do
currentMonth += LowCase(ourMass[i].month[j]);
if (currentMonth = 'январь') then
residual := 0;
if (currentMonth = 'февраль') then
residual := 4;
if (currentMonth = 'март') then
residual := 4;
if (currentMonth = 'апрель') then
residual := 1;
if (currentMonth = 'май') then
residual := 6;
if (currentMonth = 'июнь') then
residual := 3;
if (currentMonth = 'июль') then
residual := 1;
if (currentMonth = 'август') then
residual := 5;
if (currentMonth = 'сентябрь') then
residual := 2;
if (currentMonth = 'октябрь') then
residual := 0;
if (currentMonth = 'ноябрь') then
residual := 4;
if (currentMonth = 'декабрь') then
residual := 2;
if (ourMass[i].day mod 7 = residual) then
writeln(ourMass[i].day, ' ', currentMonth);
end;
end.