Почему программа в pascal abc выдаёт что массив 0 program peremena; const n=8; var a: array[1..n] of integer; i,x: integer; begin for i: =1 to n do if i> n then begin begin x: =a[i]; a[i]: =a[n]; a[n]: =x end; begin x: =a[i+1]; a[i+1]: =a[n-1]; a[n-1]: =x end; end; writeln('массив',a[i]: 8) end.