Задача про лыжника - Free Pascal

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

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

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  k:Integer;
  s,s1:real;
begin
  s:=10; k:=1; s1:=10;
  repeat
   s1:=s1*0.1;
   k:=k+1;
  until s1>20;
  writeln ('Lizznyk probezhit bolshe 20km v',k,' den');
 k:=1;
  while s<100 do
   begin
    s:=s+s*0.1;
    k:=k+1;
   end;
  writeln ('Summarniy probeg za vse dni previsyt 100km v',k,' den');
  Readln;
end.

При компиляции выдает пустое окно, в котором ничего нельзя даже ввести. Подскажите пожалуйста что я забыл, буду крайне признателен

Решение задачи: «Задача про лыжника»

textual
                            Листинг программы 
                        
                            s1:=s1*1.1;