Даны координаты четырех попарно различных точек плоскости

program q;
 
var
  A: array [1..4, 1..2] of real; S: array [1..4, 1..2] of string;
  minmax, n: real;
  number, j, i, z, x: integer;
 
begin
  s[1, 1] := 'x1';
  s[1, 2] := 'y1';
  s[2, 1] := 'x2';
  s[2, 2] := 'y2';
  s[3, 1] := 'x3';
  s[3, 2] := 'y3';
  s[4, 1] := 'x4';
  s[4, 2] := 'y4';
  for i := 1 to 4 do
    for j := 1 to 2 do
    begin
      write('Введите ', S[i, j], ' координату.');
      readln(n);
      A[i, j] := n;
      if minmax < n then
        minmax := sqr(n);
    end;
  j := 0;
  for i := 1 to 4 do
    A[i, 1] := sqrt(sqr(A[i, 1]) + sqr(A[i, 2]));
  for i := 1 to 4 do 
  begin
    if A[i, 1] < minmax then begin
      minmax := a[i, 1];
      number := i;
    end
    else 
    if (A[i, 1] = minmax) and (j = 0) then 
    begin
      j := 1;
      n := i;
    end
      else 
    if (A[i, 1] = minmax) and (j = 1) then 
    begin
      j := 2;
      z := i;
    end
        else 
    if (A[i, 1] = minmax) and (j = 2) then
    begin
      j := 3;
      x := i;
    end;
  end;
  writeln();
  if j = 0 then
    write(number, ' точка - самая ближняя к началу координат, расстояние от точки до начала координат равно ', minmax)
  else 
  if j = 1 then
    write(number, ' ', n, ' точки - самые ближние к началу координат, расстояние от точек до начала координат равно ', minmax)
  else
  if j = 2 then 
    write(number, ' ', n, ' ', z, ' точки - самые ближние к началу координат, расстояние от точек до начала координат равно ', minmax)
  else
  if j = 3 then
    write(number, ' ', n, ' ', z, ' ', x, ' точки - самые ближние к началу координат, расстояние от точек до начала координат равно ', minmax);
  minmax := 0;
  for i := 1 to 4 do 
  begin
    if A[i, 1] > minmax then begin
      minmax := a[i, 1];
      number := i;
      j:=0;
    end
    else 
    if (A[i, 1] = minmax) and (j = 0) then 
    begin
      j := 1;
      n := i;
    end
      else 
    if (A[i, 1] = minmax) and (j = 1) then 
    begin
      j := 2;
      z := i;
    end
        else 
    if (A[i, 1] = minmax) and (j = 2) then
    begin
      j := 3;
      x := i;
    end;
  end;
  writeln();
  if j = 0 then
    write(number, ' точка - самая дальняя от начала координат, расстояние от точки до начала координат равно ', minmax)
  else 
  if j = 1 then
    write(number, ' ', n, ' точки - самые дальние от начала координат, расстояние от точек до начала координат равно ', minmax)
  else
  if j = 2 then 
    write(number, ' ', n, ' ', z, ' точки - самые дальние от начала координат, расстояние от точек до начала координат равно ', minmax)
  else
  if j = 3 then
    write(number, ' ', n, ' ', z, ' ', x, ' точки - самые дальние от начала координат, расстояние от точек до начала координат равно ', minmax)
end.

const n=4;
type point=record
           x,y:integer;
           end;
var t:array[1..n] of point;
    imn,imx,k:byte;
begin
writeln('Введите координаты ',n,' попарно различных точек');
for var i:=1 to n do
 begin
  if i=1 then
   begin
    write('x1=');
    readln(t[i].x);
    write('y1=');
    readln(t[i].y);
   end
  else 
   repeat
    write('x',i,'=');
    readln(t[i].x);
    write('y',i,'=');
    readln(t[i].y);
    k:=0;
    for var j:=1 to i-1 do
    if(t[j].x=t[i].x)and(t[j].y=t[i].y)then
     begin
      k:=1;
      break;
     end;
    if k=1 then writeln('Такая точка уже была, введите другие координаты');
   until k=0;
  end;
 imn:=1;
 imx:=1;
 for var i:=2 to n do
 if sqr(t[i].x)+sqr(t[i].y)<sqr(t[imn].x)+sqr(t[imn].y)then imn:=i
 else if sqr(t[i].x)+sqr(t[i].y)>sqr(t[imx].x)+sqr(t[imx].y)then imx:=i;
 writeln('Ближе к началу координат точка ',imn,' расстояние=',sqrt(sqr(t[imn].x)+sqr(t[imn].y)):0:2);
 writeln('Дальше от начала координат точка ',imx,' расстояние=',sqrt(sqr(t[imx].x)+sqr(t[imx].y)):0:2);
 end.