Помогите записать задачу в Turbo Pascalе

Начав тренировки, лыжник в первый день пробежал 10 км. Каждый следующий день он увеличивал пробег на 10% от пробега предыдущего Определить:

а) В какой день он пробежит больше 20 км

б) В какой день суммарный пробег за все дни превысит 100 км

program ncdkj;

uses crt;

var a, b, p, d, sd:integer;

begin

clrscr;

a:=10;

b:=10;

d:=1;

sd:=1;

p:=10*0,1;

repeat

a:=a+p;

d:=d+1;

until a>20;

repeat

b:=b+p;

sd:=sd+1;

s:=s+b;

until s>100;

case sd mod 7 of

0:writeln ('сумма 100 км в 7') ;

1:writeln ('сумма 100 км в 1') ;

2:writeln ('сумма 100 км в 2') ; И так до шести

case d mod 7 of

0:writeln ('20 км в 7') ;

1:writeln ('20 км в 1') ;

2:writeln ('20 км в 2') ; И так до шести

readln;

end.

Надеюсь второе правильно понял, вроде должно работать