Даны две точки А(х1, у1) и В(х2, у2). Составить алгоритм, определяющий, которая из точек находится ближе к началу координат — Pascal(Паскаль)

function Rasst(x,y:real):real;
begin
Rasst:=sqrt(x*x+y*y);
end;
var x1,y1,x2,y2:real;
begin
writeln('Координаты первой точки:');
readln(x1,y1);
writeln('Координаты второй точки:');
readln(x2,y2);
if Rasst(x1,y1)<Rasst(x2,y2) then write('Первая точка ближе к началу координат')
else write('Вторая точка ближе к началу координат');
readln
end.