Что тут не так вот а вот в паскале

//PascalABC.NET 3.2 сборка 1318

Var  x1,y1,x2,y2,x,y,x3,y3,x4,y4:integer;
begin
read(x1,y1,x2,y2,x,y);
x3:=x1;
y3:=y2;
x4:=x2;
y4:=y1;
if (x<x1) and (y<=y3) and (y>=y1) then writeln('W') else
if (x<x1) and (y>y3) then writeln('NW') else
if (x>=x1) and (x<=x2) and (y>y3) then writeln('N') else
if (x>x2) and (y>y3) then writeln('NE') else
if (x>x2) and (y<=y2) and (y>=y4) then writeln('E') else
if (x>x2) and (y<y4) then writeln('SE') else
if (x<=x4) and (x>=x1) and (y<y4) then writeln('S') else
if (x<x1) and (y<y1) then writeln('SW');
end.

Пример ввода:
-2 1 4 4 -3 5
Пример вывода:
NW

Var
a: array [1..15] of integer;
avg, avgpol, avgotr: real;
i, k1, k2: byte;
begin 
avg := 0; avgpol := 0; avgotr := 0; 
writeln('Massiv:'); 
Randomize; 
for i:=1 to 15 do 
begin 
a[i]:=random(20)-10; 
write(a[i], ' '); 
avg:=avg + a[i]; 
if a[i] > 0 then     
begin       
avgpol := avgpol + a[i];       
inc(k1);     
end; 
if a[i] < 0 then     
begin       
avgotr := avgotr + a[i];       
inc(k2);     
end; 
end; 
avg:=avg/15; 
avgpol:= avgpol/k1; 
avgotr:= avgotr/k2; 
writeln; 
writeln('Srednee massiva = ', avg:3:2); 
writeln('Srednee polozh. elementov = ', avgpol:3:2); 
writeln('Srednee otric. elementov = ', avgotr:3:2); 
readln;
end.