Работа с файлами. Не знаю как правильно реализовать чтение массивов

[t6fore]

Даны 2 последовательности действительных чисел х1...х10, у1...у10. Выяснить верно ли что все точки (xi,yi) принадлежат кругу радиуса 2 с центром в точке (1;1).

Program N26;
Label 1, 2;
Var
   x:Array[1..10] of real;
   y:Array[1..10] of real;
   i,j:Integer;
      f1,f2:text;
Begin
     {Работаем с первым файлом}
     Assign(f1,'input.txt');
     Rewrite(f1);
     writeln('vvedite riad x');
     for i:=1 to 10 do begin
     read(x[i]);
     write(f1,x[i]);
     end;
     writeln('vvedite riad y');
     for j:=1 to 10 do begin
     read(y[j]);
     write(f1,y[j]);
     end;
     Close(f1);
     Reset(f1);
     for i:=1 to 10 do
     Read(f1,x[i]);
     for j:=1 to 10 do
     Read(f1,y[i]);
     If ((X[i]*X[i]+1)+(Y[j]*Y[j]+1)) <= 4 then
     WriteLn ('Все точки попали в окружность радиуса R = 4')
     else writeLn ('Некоторые точки не попали в окружность радиуса R = 4');
     Close(f1);
     readln
End.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[дiлетант]

а почему +1 в формуле (X[i]*X[i]+1)?

[t6fore]

Модератор, спасибо, буду так оформлять.

[t6fore]

дiлетант, в условии задано, что центр нашего радиуса лежит в точке (1;1), соответственно я и перенес его сдвигом абсциссы и ординаты на одну единицу

[дiлетант]

почему-то мне кажется что в формуле -1. нет?

[Serge_Bliznykov]

дiлетант, в условии задано, что центр нашего радиуса лежит в точке (1;1), соответственно я и перенес его сдвигом абсциссы и ординаты на одну единицу

это неверно. Возьмите, например, точку с координатами (2,2) она точно попадает в заданный Вами круг. У Вас же - нет!
Да сдвигать нужно ДО возведения в степень..

да и проще, я бы искал расстояние между точкой и центром окружности
это легко записать так:

if ( sqr(x[i]-1) + sqr(y[i]-1) ) <= 4 then  { точка лежит принадлежит кругу }

[t6fore]

да, -1. Ну сути дела это не меняет и вообще не касается того что я спросил.
Как написать так, чтобы программа читала два ряда, записывала их в файл, потом читала з того же файла, реализовала проверку на попадание в радиус всех точек, а записывала результат в файл, вот это мне нужно

[t6fore]

Модер, спасибо, исправил. Но у меня все точки принадлежат кругу, а это неверно, где я ошибся?

[дiлетант]

конечно глупое предположение, но все таки возможно читаются не все координаты из-за write. может каждую координату из массива записывать в новую строку ну и читать соответственно. может writeln

[t6fore]

То что я имею на данный момент. Теперь всегда единица

Program N26;
Label 1, 2;
Var
   x:Array[1..10] of real;
   y:Array[1..10] of real;
   i,j,s:Integer;
      f1,f2:text;
Begin
     //Работаем с первым файлом
     Assign(f1,'input.txt');        //присвоили переменной имя файла
     Rewrite(f1);                   //открыли для записи
     writeln('vvedite riad x');
     for i:=1 to 10 do begin        //вводим значения ряда абсцис
     read(x[i]);
     write(f1,x[i]);
     end;
     writeln('vvedite riad y');
     for j:=1 to 10 do begin         //вводим значения ряда ординат
     read(y[j]);
     write(f1,y[j]);
     end;
     Close(f1);                      //закончили работу с файлом
     //Работаем со вторым файлом
     
     Assign(f2,'output.txt');         //присвоили имя
     Rewrite(f2);                     //открыли для записи
     Reset(f1);                       //открыли для чтения первый файл
     for i:=1 to 10 do                //читаем значения рядов,не уверен правильно сделал или нет
     Read(f1,x[i]);
     for j:=1 to 10 do
     Read(f1,y[i]);
     if ( sqr(x[i]-1) + sqr(y[i]-1) ) <= 4 then      //задаем условие проверки
     s:=1 else s:=0; {0 - не попадает, 1 - попадает}
     write(f2,s);                     //записываем значение переменной во второй файл
     Close(f1,f2);
     Reset(f2);                        //открываем второй файл для чтения
     Readln(f2,s);                     //считываем
     Writeln(s);                       //выводим значение переменной
     readln
End.