Найти горизонтальную и вертикальную медианы заданного множества

PROGRAM qwerty;
USES CRT, GRAPH;
TYPE Coord=array[1..100,1..2] of Real;
 
FUNCTION Sort(A:coord; cord,n:word):real;
Var i,j,jj:word; k:real;
Begin
  For i:=1 to n-1 do for j:=1 to n-i do if A[j,cord]>A[j+1,cord] then
  begin
    k:=A[j,cord];
    A[j,cord]:=A[j+1,cord];
    A[j+1,cord]:=k;
  end;
  jj:=n div 2;
  Sort:=(A[jj,cord]+A[jj+1,cord])/2;
End;
 
VAR
  n,i,j,k,D,M,MX,MY,xx,yy,GraphErrorCode,ColLine:INTEGER;
  A:Coord;
  x_med,y_med,MaxX,MaxY,MinX,MinY,g:real;
 
BEGIN
  ClrScr;
  {Ввод координат}
  repeat
    WriteLn('Введите количество точек (кратное двум):');
    ReadLn(n);
  until(n mod 2 =0);
  Writeln('Введите координаты ',n,' точек (',2*n,' координат) через пробел.');
  for i:=1 to n do
  begin
    read(A[i,1]);
    read(A[i,2]);
  end;
  {проверка на принадлежность любых двух точек одной прямой}
  For i:=1 to n-1 do for j:=i+1 to n do if ((A[i,1]=A[j,1]) or (A[i,2]=A[j,2])) then
  begin
    writeln('Какие либо 2 точки лежат на одной горизонтальной или вертикальной прямой! Завершение программы!');
    Readln;
    exit;
  end;
  {Конец проверки}
  x_med:=Sort(A,1,n);
  y_med:=Sort(A,2,n);
  Writeln('Вертикальная медиана имеет уравнение x=',x_med);
  Writeln('Горизонтальная медиана имеет уравнение y=',y_med);
  ReadKey;
  {Вывод графического изображения}
  D:=0;
  InitGraph(D,M,'');
  MaxX:=a[1,1];                                 //Ссылка 6: Начало.
  MaxY:=a[1,2];
  MinX:=a[1,1];
  MinY:=a[1,2];
  FOR i:=1 TO n DO
    BEGIN
      IF MinX>a[i,1] THEN MinX:=a[i,1];
      IF MinY>a[i,2] THEN MinY:=a[i,2];
      IF MaxX<a[i,1] THEN MaxX:=a[i,1];
      IF MaxY<a[i,2] THEN MaxY:=a[i,2];
    END;                                         //Ссылка 6: Конец.
  GraphErrorCode:=GraphResult;
  IF GraphErrorCode = 0 THEN
    BEGIN
      MX:=GetMaxX;
      MY:=GetMaxY;
      g:=(MX-100)/(MaxX-MinX);                   //Ссылка 7: Начало.
      IF g*(MaxY-MinY) > MY-100 THEN
        BEGIN
          g:=(MY-100)/(MaxY-MinY);
          MinX:=(MaxX+MinX-(MX-100)/g)/2;
        END
        ELSE
          MinY:=(MaxY+MinY-(MX-100)/g)/2;
      FOR i:=1 TO n DO
        BEGIN
          xx:=Trunc((a[i,1]-MinX)*g)+50;
          yy:=MY-Trunc((a[i,2]-MinY)*g)-50;     //Ссылка 7: Конец.
          FOR j:=-2 TO 2 DO                      //Ссылка 8.
            FOR k:=-2 TO 2 DO
              PutPixel(xx+j,yy-k,WHITE);
        END;
      SetColor(2);
      Line(trunc((x_med-MinX)*g)+50,MY-trunc((MinY-MinY)*g)-50,trunc((x_med-MinX)*g)+50,MY-trunc((MaxY-MinY)*g)-50);
      SetColor(3);
      Line(trunc((MinX-MinX)*g)+50,MY-trunc((y_med-MinY)*g)-50,{trunc((MaxX-MinX)*g)+50}GetMaxX-50,MY-trunc((y_med-MinY)*g)-50);
 
 
    END;
  ReadKey;
  CloseGraph;
END.