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

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 x<>n do begin if a[x,x] > max then begin max: =a[x,x]; y: =x; end; inc (x); end; writeln ('Максимальный элемент равен ',max,'. Его координаты (',y,'; ',y,').'); end.