Задачка в паскале.развивая предельную скорость своего движения жираф пробегает за x1

Прога в приложении. Испытания:
Введите время и расстояние, которое пробегает жираф:x1=100y1=50Введите время и расстояние, которое пробегает заяц:x2=200y2=100Победила дружба!
Введите время и расстояние, которое пробегает жираф:x1=450y1=48Введите время и расстояние, которое пробегает заяц:x2=745y2=84Победил заяц!
Введите время и расстояние, которое пробегает жираф:x1=5y1=100Введите время и расстояние, которое пробегает заяц:x2=5y2=85Победил жираф!

Var x1,y1,x2,y2,v1,v2:real;
begin
  writeln("введите количество метров пробегания жирафа");
  read(y1);
  writeln("введите, за сколько секунд он обязан пробежать");
  read(x1);
  writeln("введите количество метров пробегания зайца");
  read(y2);
  writeln("введите, за сколько секунд он обязан пробежать");
  read(x2);
  v1:=y1/x1;
  v2:=y2/x2;
  if v1gt;v2 then 
  begin
     writeln("жираф чемпион");
  end
  else if v1lt;v2 then 
  begin
     writeln("заяц фаворит");
  end
  else
  begin
    writeln("одолела дружба);
  end;
end;