Помогите пожалуйста написать программу и блок схему. Вот задание: даны две точки: А(x1; y1) и B(x2; y2) нужно составить программу определяющую, какая из точек находится ближе к началу координат. 

var x1,y1,x2,y2,d1,d2:real;begin  write ('X1 = ');  readln (x1);  write ('Y1 = ');  readln (y1);  write ('X2 = ');  readln (x2);  write ('Y2 = ');  readln (y2);  d1:=sqrt(sqr(x1)+sqr(y1));  d2:=sqrt(sqr(x2)+sqr(y2));  if d1<>d2 then write ('К началу координат ближе ');   if d1>d2 then writeln ('вторая точка') else    if d2>d1 then writeln ('первая точка') else      writeln ('Обе точки равноудалены друг от друга');end.