Сделать программу по задачеВ квадратной матрице целых чисел…

Vara: array [1… 100,1… 100] of longint; i,j,k,n,g,m: longint; beginreadln (n); for i: =1 to n do for j: =1 to n do read (a[i,j]); k: =a[1,1]; g: =1; m: =1; for i: =1 to n do if a[i,i]>k then begin k: =a[i,i]; g: =i; m: =i; end; for i: =g to n do a[i,i]: =0; for i: =1 to n do for j: =1 to n do begin write (a[i,j],'); writeln; end; end. Как-то так, на компиляторе не проверял