Пожаалуйста, помогите (только не из интернета брать, там не правильно). Даны две…

const y=5; x=2; var x1,x2,y1,y2: integer; begin write ('x1='); readln (x1); write ('y1='); readln (y1); write ('x2='); readln (x2); write ('y2='); readln (y2); if sqrt (x1-x)*(x1-x)+(y1 — y)*(y1 — y) < sqrt (x2-x)*(x2-x)+(y2 — y)*(y2 — y) then writeln ('A ближе') else if sqrt (x1-x)*(x1-x)+(y1 — y)*(y1 — y) > sqrt (x2-x)*(x2-x)+(y2 — y)*(y2 — y) then writeln ('B ближе') else writeln ('Они на одинковом расстоянии'); readln; end.