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

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.