Программа DD Разборчивая принцесса - Turbo Pascal

uses Crt;
var Zvet: String; {Цвет}
      Rost: integer; {Рост}
begin
ClrScr;
   write(' Каков цвет ваших глаз? ');
       readln(Zvet);
   write(' Введите ваш рост в см: ');
       readln(Rost);
   if (Zvet = ' голубой ') and (Rost < 140) then
      writeln(' Вы мне подойдёте. ');
         else writeln(' До свидания.');
     readln
end.

Каков цвет ваших глаз?  Голубой
Введите ваш рост в см:  120
До свидания.

Каков цвет ваших глаз?  Серый
Введите ваш рост в см:  150
До свидания.