Даны две точки на плоскости . Определите какая из них находится ближе к началу координат

Паскаль обиделся и лаганул(

Вот скрин моего решения. 

procedure TForm1.Button1Click(Sender: TObject);var  x1,y1,x2,y2 : double;  d1,d2 : double;begin  x1:= StrToFloat( Edit1.Text);  y1:= StrToFloat( Edit2.Text);  x2:= StrToFloat( Edit3.Text);  y2:= StrToFloat( Edit4.Text);  d1:=Sqrt(x1*x1+y1*y1);  //Теорема Пифагора  d2:=Sqrt(x2*x2+y2*y2);  //Теорема Пифагора  if (d1<d2) then    Label1.Caption := 'Ближе точка с координатами X1,Y1'  else    if (d1>d2) then      Label1.Caption := 'Ближе точка с координатами X2,Y2'    else      Label1.Caption := 'Точки находятся на одинаковом расстоянии'end;Для увеличения быстродействия алгоритма можно d1 и d2 рассчитывать так:  d1:= x1*x1+y1*y1;d2:= x2*x2+y2*y2;