написала программу а она не работает помогите

/ Дано множество A из N точек
// с целочисленными координатами x, y.
// Порядок на координатной плоскости
// определим следующим образом:
// (x1, y1) < (x2, y2),
// если либо x1 + y1 < x2 + y2,
// либо x1 + y1 = x2 + y2 и x1 < x2.
// Расположить точки данного множества по
// убыванию в соответствии с указанным порядком.
program Array140;
var
X: array [1..10] of real;
Y: array [1..10] of real;
cncl_ms,N,i,j:integer;
tempX,tempY,Perimetr:real;
begin
writeln('Введите N (N<=10)');
readln(N);
writeln('Значения множества точек А (X Y)');
for i:=1 to n do begin write(i,' )точка '); read(X); read(Y); end;
// решение
cncl_ms:=n;
j:=1;
while j > 0 do begin
j:=0;
for i:=2 to cncl_ms do
begin
if ((X+Y)<(X[i-1]+Y[i-1])) or
(((X+Y)=(X[i-1]+Y[i-1])) and (Xthen
begin
inc(j);
tempX:=X; X:=X[i-1];X[i-1]:=tempX;
tempY:=Y; Y:=Y[i-1];Y[i-1]:=tempY;
end;
end;
dec(cncl_ms);
end;
Writeln;
Writeln('Ответ');
Writeln('Точка');
for i:=1 to n do Writeln(' ',i,' )',X,' ',Y);
end.