Поле засеяли цветами двух сортов на площади S1 и S2. Каждый год площадь цветов первого сорта увеличивается вдвое, а площадь (программа Паскаль)

USES Crt;
VAR
   S1,S2:WORD;  KL:BYTE;
BEGIN
 ClrScr;
 Write('Введите площадь, которую засеяли цветами 1-го сорта ');  ReadLn(S1);
 Write('Введите площадь, которую засеяли цветами 2-го сорта ');  ReadLn(S2);
  KL:=1;
  While (S1>0.1*S2) DO Begin
    S1:=S1*2;    S2:=S2*3;    KL:=KL+1;
  End;
  WriteLn('Площадь, которую засеяли цветами 1-го сорта ',S1);
  WriteLn('Площадь, которую засеяли цветами 2-го сорта ',S2);
  WriteLn('Через ', kl,' лет');
END.