Pascal ABC.Для двумерного массива 9*9 найдите элемент, который размещен по центру

Var i,j,x,y: integer;
a: array [1..9,1..9] of integer;
begin
//наполнение массива данными
for i:=1 to 9 do
for j:=1 to 9 do
begin
a[i,j]:= random(100);
end;
//вывод массива
for i:=1 to 9 do
begin
for j:=1 to 9 do
begin
write (a[i,j], );
end;
writeln();
end;
//определение координаты x
x:=round(9/2)+1;
//определение координаты y
y:=round(9/2)+1;
//вывод значения массива, размещенного по координатам x и y
writeln(a[x,y], - центр двумерного массива c координатами x = , x, , y = , y);
end.