Помогите напишите задачу и ее решение в паскале.

Составить программу для решения следующей задачи:
Гражданин 1 марта открыл счет в банке, вложив 1000 руб. Через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы. Определить за какой месяц величина ежемесячного увеличения вклада превысит 30 руб.

archery: var
sum, growth: real;
months: integer;

begin
sum := 1000;
months := 0;
repeat
months := months + 1;
growth := sum * 0.02;
sum := sum + growth;
until growth > 30;

writeln('Сумма - ', sum);
writeln('Месяцев прошло - ', months);
writeln('Номер месяца в году - ', (3 + months - 1) mod 12 + 1);
end.