Помогите записать задачу в Turbo Pascalе Начав тренировки, лыжник в первый день…

program ncdkj; uses crt; var a,b,p,d,sd: integer; beginclrscr; 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 of0: writeln ('сумма 100 км в 7'); 1: writeln ('сумма 100 км в 1'); 2: writeln ('сумма 100 км в 2'); И так до шестиcase d mod 7 of0: writeln ('20 км в 7'); 1: writeln ('20 км в 1'); 2: writeln ('20 км в 2'); И так до шестиreadln; end. Надеюсь второе правильно понял, вроде должно работать