Заполнить массив состоящий из n элементов,который вводит пользователь. массив заполняется автоматически найти массив который находится ровно в центре, надо

program mas; const n = 11; var a : array [1..n] of integer; i: byte;   begin writeln ('Vvedite massiv'); for i := 1 to n do readln(a[i]);   i := (n div 2) + 1;   writeln(a[i],' - element rovno v centre massiva'); end.