найти максимальный диагональный элемент и указать его координаты в главной диагонали матрицы, помогите написать программу

Uses crt; const h=100; var a: array [1 ... h, 1 ... h] of integer; n, x, y, max: integer;

begin write ('Длина матрицы = ') ; readln (n) ; / / Enter for x:=1 to n do for y:=1 to n do begin write ('a[', x,',', y,'] = ') ; readln (a[x, y]) ; end; / / max:=a[1,1]; while xn do begin if a[x, x] > max then begin max:=a[x, x]; y:=x; end; inc (x) ; end; writeln ('Максимальный элемент равен ', max,'. Его координаты (', y,'; ', y,').') ; end.