Упростить код (Паскаль)

[crocodile]

как можо упростить первую часть?
program Project1;

{$APPTYPE CONSOLE}
type
point =
record
x,y,dist2:integer;
end;

function getDist(a:point; b:point):integer;
begin
getDist:=(a.x-b.x)*(a.x-b.x)+(a.y-b.y)*(a.y-b.y);
end;

var
n,i,j,maxD, maxI, maxJ, tmp: integer;
pts: array of point;

begin
writeln('N:');
readln(n);
SetLength(pts, n);

writeln('Vvodite koordinati tochek cheres probel, a tochki chereze enter');

for i := 0 to n-1 do
Readln(pts[i].x, pts[i].y);

maxI:=0;
maxJ:=1;
maxD:=getDist(pts[0], pts[1]);
for i := 0 to n-2 do
for j := i+1 to n-1 do
begin
tmp:=getDist(pts[i], pts[j]);
if tmp>maxD then
begin
maxI:=i;
maxJ:=j;
maxD:=tmp;
end;
end;

writeln;
Writeln(pts[maxI].x, ' ', pts[maxi].y);
Writeln(pts[maxJ].x, ' ', pts[maxJ].y);
readln;
end.

[crocodile]

Можно ли проще сделать не объяляя тип координат, а используя одни переменные???

[CodeExpert]

Можно бы было, но так ведь удобнее, и учитесь оформлять код правильно:

program Project1;

{$APPTYPE CONSOLE}
type point = record
   x,y,dist2:integer;
end;

function getDist(a:point; b:point):integer;
begin
  getDist:=(a.x-b.x)*(a.x-b.x)+(a.y-b.y)*(a.y-b.y);
end;

var
  n,i,j,maxD, maxI, maxJ, tmp: integer;
  pts: array of point;
begin
writeln('N:');
readln(n);
SetLength(pts, n);
writeln('Vvodite koordinati tochek cheres probel, a tochki chereze enter');
for i := 0 to n-1 do
  Readln(pts[i].x, pts[i].y);
  maxI:=0;maxJ:=1;
maxD:=getDist(pts[0], pts[1]);
for i := 0 to n-2 do
  for j := i+1 to n-1 do
    begin
      tmp:=getDist(pts[i], pts[j]);
        if tmp>maxD then
          begin
            maxI:=i;
            maxJ:=j;
            maxD:=tmp;
            end;
      end;
writeln;
Writeln(pts[maxI].x, ' ', pts[maxi].y);
Writeln(pts[maxJ].x, ' ', pts[maxJ].y);
readln;
end.