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;//определение координаты xx:=round(9/2)+1;//определение координаты yy:=round(9/2)+1;//вывод значения массива, расположенного по координатам x и ywriteln(a[x,y], \' - центр двумерного массива c координатами x = \', x, \', y = \', y);end.