Помогите пожалуйста исправить программу в PascalABC...

имеется задача:
program MyDates;
var d_old, m_old, y_old, d_new, m_new, y_new, days_int: integer;
label d_old_e, m_old_e, d_new_e, m_new_e;
begin
d_old_e:
write('Введите день первой даты цифрами: '); readln(d_old);
if (d_old <= 0) or (d_old > 31) then goto d_old_e;
m_old_e:
write('Введите месяц первой даты цифрами: '); readln(m_old);
if (m_old <= 0) or (m_old > 12) then goto m_old_e;
write('Введите год первой даты цифрами: '); readln(y_old);
d_new_e:
write('Введите день второй даты цифрами: '); readln(d_new);
if (d_new <= 0) or (d_new > 31) then goto d_new_e;
m_new_e:
write('Введите месяц второй даты цифрами: '); readln(m_new);
if (m_new <= 0) or (m_new > 12) then goto m_new_e;
write('Введите год второй даты цифрами: '); readln(y_new);
days_int :=(y_new-y_old)*365+(m_new-m_old)*30+d_new-d_old;
writeln('Прошло дней: ', days_int);
end.
программа отличная, но нужно чтоб она как то с помощью цикла работала.
Спасибо за внимание)