ЛЮЮЮДИ ПОМОГИТЕ ДЛЯ ЗАЧЕТА НАДООО
Даны координаты двух точек на плоскости.Если хотя бы одна из них лежит на какой-нибудь оси, то вывести сообщение об этом; если они обе находятся в одной четверти, то найти и вывести расстояние между ними;иначе точку, наиболее удаленную от центра координат. Это нужно в паскале Даю 99 баллов

var x1,y1,x2,y2:Integer;L1,L2,L3:real;b,c:boolean;beginReadln(x1,y1,x2,y2);L1:=sqrt(sqr(x1)+sqr(y1));L2:=sqrt(sqr(x2)+sqr(y2));L3:=sqrt(sqr(x2-x1)+sqr(y2-y1));If (x1=0) or (y1=0) thenWriteln('Первая точка лежит на оси');If (x2=0) or (y2=0) thenWriteln('Вторая точка лежит на оси');b:=false;c:=false;If (x1=0) or (x2=0) thenb:=trueelseIf x1 div x2>0 thenb:=true;If (y1=0) or (y2=0) thenc:=trueelseIf y1 div y2>0 thenc:=true;If (b=true) and (c=true) thenWriteln(L3)elseWriteln(max(L1,L2));end.