Помогите с нахождением середины отрезка(декартовы координаты)

uses crt;
var x1,y1,x2,y2,x3,y3:real;
begin
clrscr;
writeln('Введите координаты 1 точки');
readln(x1,y1);
writeln('Введите координаты 2 точки');
readln(x2,y2);
x3:=(x1+x2)/2;
y3:=(y1+y2)/2;
write('Середина отрезка x=',x3:0:2,' y=',y3:0:2);
readln
end.

uses crt,graphABC;
var x1,y1,x2,y2,x3,y3,z,m:real;
    xc,yc:integer;
    s:string;
begin
hidecursor;
writeln('Введите координаты 1 точки');
readln(x1,y1);
writeln('Введите координаты 2 точки');
readln(x2,y2);
x3:=(x1+x2)/2;
y3:=(y1+y2)/2;
write('Середина отрезка x=',x3:0:2,' y=',y3:0:2);
readln;
clearwindow;
xc:=windowwidth div 2;
yc:=windowheight div 2;
line(0,yc,2*xc,yc);
line(xc,0,xc,2*yc);
textout(2*xc-20,yc-20,'X');
textout(xc-15,10,'Y');
if abs(x1)>abs(x2) then z:=abs(x1) else z:=abs(x2);
if abs(y1)>z then z:=abs(y1);
if abs(y2)>z then z:=abs(y2);
m:=(yc-10)/z;
setbrushcolor(clBlue);
circle(xc+round(x1*m),yc-round(y1*m),3);
circle(xc+round(x2*m),yc-round(y2*m),3);
setpencolor(clBlue);
line(xc+round(x1*m),yc-round(y1*m),xc+round(x2*m),yc-round(y2*m));
setbrushcolor(clRed);
circle(xc+round(x3*m),yc-round(y3*m),5);
setbrushcolor(clWhite);
setpencolor(clBlue);
setfontcolor(clBlue);
line(xc+round(x1*m),yc-4,xc+round(x1*m),yc+4);
str(x1:0:1,s);
textout(xc+round(x1*m),yc+15,s);
line(xc+round(x2*m),yc-4,xc+round(x2*m),yc+4);
str(x2:0:1,s);
textout(xc+round(x2*m),yc+15,s);
line(xc+3,yc-round(y1*m),xc-3,yc-round(y1*m));
str(y1:0:1,s);
textout(xc-35,yc-round(y1*m),s);
line(xc+3,yc-round(y2*m),xc-3,yc-round(y2*m));
str(y2:0:1,s);
textout(xc-35,yc-round(y2*m),s);
setpencolor(clRed);
setfontcolor(clRed);
line(xc+round(x3*m),yc-4,xc+round(x3*m),yc+4);
str(x3:0:1,s);
textout(xc+round(x3*m),yc+15,s);
line(xc+3,yc-round(y3*m),xc-3,yc-round(y3*m));
str(y3:0:1,s);
textout(xc-35,yc-round(y3*m),s);
end.