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

Question

/ Дано множество 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.

Андрей Холопов · Accepted Answer

ОгоГОо сори не помогу!

Екатерина Кирьянова · Answer

А как она не работает?

Kain 7 · Answer

Uses Crt; 
В конце добавить ReadKey чтоб была задержка экрана до нажатия любой клавиши.

Мария Евстафиади · Answer

А какой мне будет приз?