в коде бред какой-то... исправил...
Объяснение:
program protect8;
const N = 8;
var
i:integer;
arr: array[0..N]of integer;
begin
for i := 0 to N do
begin
arr[i] := random(1000);
write(arr[i], ', ');
end;
writeln;
for i := 0 to N do
begin
arr[i] := arr[i] + 1;
write(arr[i], ', ');
end;
end.