Turbo Pascal

[Kristi]

Множество точек в пространстве задано своими целочисленными координатами. Определить, совпадает ли хотя бы одна из точек с началом координат.

Исправьте пожалуйста...
program Points;
uses CRT;
var
x,y:array [0..1000] of Integer; {Данные}
n,i:Integer; {Количество точек и счетчик циклов}
flFind:Boolean; {Флаг - нашли точку или нет}
begin
ClrScr;
{Вводим массив}
WriteLn('Введите количество точек: ');
ReadLn;
for i:=0 to n-1 do
begin
WriteLn('Введите ',i,'-е x:');
ReadLn(x);
WriteLn('Введите ',i,'-е y:');
ReadLn;
end;
{Анализируем массив}
flFind:=False;
for i:=0 to n-1 do if (x=0) and (y=0) then
begin {Нашли такую точку}
flFind:=True;
Break;
end;
if flFind then WriteLn('Точка найдена') else WriteLn('Точка не найдена');
ReadKey;
end.

 

[Vladimir_S]

Исправьте пожалуйста...

Пожалуйста. Ошибка здесь:
for i:=0 to n-1 do if (x=0) and (y=0) then
А надо:
for i:=0 to n-1 do if (x=0) and (y=0) then

Ой, да - и при вводе тоже:
вместо
ReadLn(x);
...
ReadLn;
нужно
ReadLn(x);
...
ReadLn(y);