Pascal. Проверьте, пожалуйста (график, заштрихованная область). - Turbo Pascal

Формулировка задачи:

Имеется следующий график (в прикреплении). Ввести с клавиатуры последовательность из 20 координатных точек (х,у) и определить минимальную из абсцисс точек, находящейся в заштрихованной области.

Program rgz2z1;
var
i:byte;
minx:real;
x: array [1..10] of integer;
y: array [1..10] of integer;
begin
writeln ('vvedite znacheniya x i y');
minx:=-3;
for i:= 1 to 10 do
begin
readln (x[i]);
readln (y[i]);
end;
for i:= 1 to 10 do
If (x[i]<=-3) and (x[i]<=0) and (x[i]<=y[i]) then
begin
if (x[i]<minx) then
minx:=x[i];
end;
writeln ('massiv x');
for i:= 1 to 10 do
write (x[i]:2, ' ');
writeln;
writeln('massiv y');
for i:=1 to 10 do
write(y[i]:2,'  ');
end.

При вводе значений идет ошибка(

Решение задачи: «Pascal. Проверьте, пожалуйста (график, заштрихованная область).»

Листинг программы

Program rgz2z1;
uses crt;
const n=4;
var
i,k:byte;
minx:real;
x,y: array [1..n] of real;
begin
writeln ('vvedite znacheniya x i y');
minx:=0; k:=0;
for i:=1 to n do
  begin
   readln (x[i]);
   readln (y[i]);
   If (x[i]>=-3) and (x[i]<=0) and (y[i]>=x[i]) and(y[i]<=0) then
    begin
     k:=1;
     if x[i]<minx then minx:=x[i];
    end;
  end;
writeln ('massiv x');
for i:= 1 to n do
write (x[i]:0:2,' ');
writeln;
writeln('massiv y');
for i:=1 to n do
write(y[i]:0:2,' ');
writeln;
if k=0 then write('Нет точек, попадающих в заданную область')
else write('Минимальная абцисса точек из области=',minx:0:2);
readln
end.

Объяснение кода листинга программы

В этом коде происходит следующее:

Программа запрашивает у пользователя ввод значений для переменных x и y.
Переменная minx инициализируется значением 0, а переменная k - значением 0.
Используется цикл for для прохода по каждому элементу массива x.
Внутри цикла происходит ввод значения для x[i] и y[i] с помощью функции readln().
С помощью условного оператора if проверяется, принадлежит ли текущая точка заданной области.
Если точка принадлежит области, то переменной k присваивается значение 1, и если текущее значение x[i] меньше minx, то minx обновляется значением x[i].
После завершения цикла выводятся значения массива x с помощью функции write() и символа пробела.
Выводится символ новой строки.
Выводятся значения массива y с помощью функции write() и символа пробела.
С помощью условного оператора if проверяется, равен ли k 0.
Если k равен 0, выводится сообщение Нет точек, попадающих в заданную область.
Если k не равен 0, выводится сообщение Минимальная абцисса точек из области= и значение minx.
Программа ожидает ввода с помощью функции readln().