Определить прирост поголовья скота - Pascal ABC

Формулировка задачи:

Поголовье скота в колхозе увеличивалось каждый год. Прирост числа коров составил 7%, а сви-ней – 15%. Определите, через сколько лет количество свиней будет больше количества коров не менее чем на 100? число коров и свиней,как я полагаю,вводится с клавиатуры. код есть,но врядли правильный. помогите,пожалуйста разобраться.спасибо.

program prj1;
var a,b,c,a1,b1:real;
begin
writeln ('Введите количество коров и свиней');
readln (a,b);
c:=0;
a1:=0;
b1:=0;
repeat
a1:=a/100*7;
b1:=b/100*15;
c:=c+1;
until (b>a+100);
write(c);
end.

Решение задачи: «Определить прирост поголовья скота»

Листинг программы

program prj1;
var a,b:real;
    c:integer;
begin
writeln ('Введите количество коров и свиней');
readln (a,b);
c:=0;
repeat
a:=a+a/100*7; //прирост за один год коров
b:=b+b/100*15; //прирост за один год свиней
c:=c+1;  //года считается
writeln (c,' год', a:5:0, 'коров  ', b:5:0,'свиней'); //можно это опустить, там ноль потомучто, коровы и свиньи не могут быть дробными
until (b>a+100); //условие про разницу в 100 голов
write(c);
end.

Объяснение кода листинга программы

В программе объявляются три переменные: a, b и c типа real и integer соответственно.
Затем программа запрашивает у пользователя количество коров и свиней.
Переменная c инициализируется нулем.
Далее, в цикле repeat происходит увеличение количества коров и свиней на 1007 и 10015 соответственно.
После каждого увеличения, переменная c увеличивается на единицу, так как каждый год считается.
Цикл продолжается до тех пор, пока количество свиней не станет больше или равно количеству коров плюс 100.
По окончании цикла, программа выводит количество лет, в течение которых происходил прирост, а также количество коров и свиней.
Конечный вывод программы - количество лет, в течение которых происходил прирост, без учета количества коров и свиней.