PascalABC.NET how to fix the error?

```
uses Arrays;
var
a: array of integer;
N: integer;
i1, i2: integer;
begin
N: = 50;
a: = CreateRandomIntegerArray (50);
for var i: = 1 to N do begin
if a [i] & gt; 0 then
i1 + = 1;
if a [i] & lt; 0 then
i2 + = 1;
end;
write (i1);
write (i2);
end.
```

## Answer 1, authority 100%

Dynamic arrays are numbered from zero. The loop `for var i: = 1 to N do begin `

should at least look like this `for var i: = 0 to N-1 do begin `

In general, it is worth operating with such array functions as `length `

, `High `

, etc.