Определить, какая из точек находится дальше от начала координат

Program HELP_Uk;
Uses
    Crt;
Var
   a, b, x, y, n, m : real;
Begin
     ClrScr;
     WriteLn ('Vvedite koordinaty pervoi tochki cherez probel ');
     ReadLn (a,b);
     WriteLn ('vvedite koordinaty vtoroy tochki cherez probel ');
     ReadLn (x,y);
     n := sqrt(sqr(a) + sqr(b));
     m := sqrt(sqr(x) + sqr(y));
     If n = m then
                  begin
                       writeLn ('Tochki nahodyatsya na ravnom rasstoyanii ot nachala koordinat ');
                  end
     else
         begin
              If n > m then
                           begin
                                writeLn ('Vtoraya tochka blije ');
                           end
              else
                  begin
                       writeln ('pervaya tochka blije ');
                  end;
     end;
     ReadLn;
End.