Выдает ошибку, подскажите в чем, пожалуйста. Программа паскаль

Program PVIT28;
const
n=10;
Var i, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, otr,N: integer;
massiv: array[1..n] of integer;
Begin
for 1 := 1 to N do
Begin
writeln ('значение', i, '=');
readln (massiv[i]);
end;
For i := 1 to n do
Begin
if massiv[i] < 0 then
Begin
otr:= massiv[i];
massiv[i] := sqr(otr);
WriteLn(massiv)
end.