Определить минимальную из абсцисс точек, находящейся в заштрихованной области (проверьте код)

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.

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.